Select Code to Download

my @as = ();
while (my ($key, $value) = each %myhash){
   push @as, $key if $value eq 'a';
}