TestHashStruct for windows Perl

#!/usr/perl/bin/perl
#open(FHD, "c:\\test\\test.txt") || die("cna't open the file\n");

my %hash;

$hash{1} = {name=> 'mm1', age=> 18, sex=>'female'};
$hash{2} = {name=> 'mm2',age=> 19,sex=>'female'};

my %info_of_mm_3 = (name  => 'mm3', age   => 20,sex   => 'female');
$hash{3} = {%info_of_mm_3};

while( my ($key, $value) = each %hash )
{
 print "key : $key\n";
 my $name = $hash{$key}{name};
 my $age = $hash{$key}{age};
 my $sex = $hash{$key}{sex};
 print "$name , $age, $sex \n"; 
}
#close(FHD);