use strict;
use warnings;
use Data::Dumper;

my %myinfo = (
    name    =>  'sironekotoro',
    sex     =>  "male",
    food    =>  'beef'
);

my @keys = keys %myinfo;
for my $foo(@keys){
    print "$foo : $myinfo{$foo}\n";
}

print "---\n";

delete $myinfo{sex};
for my $foo(@keys){
    print "$foo : $myinfo{$foo}\n";
}
