Select Code to Download

my @keys = grep { $hash{$_} eq $value } keys %hash;

#!/usr/bin/perl

...
   }
}
print Dumper (@AoH);