Select Code to Download

use strict;

...
        print "KEY:$key\n";
    }
}

my %myhash = { 1 => 'a', 2=> 'b', 3=> 'a', 4=>'c'};

use strict;
my $myhash = { 1 => 'a', 2=> 'b', 3=> 'a', 4=>'c'};
for my $key (keys %{$myhash}){
...
        print "KEY:$key\n";
    }
}