Select Code to Download

my %fruit_map;
@fruit_map{@apple_ids}  = ("apple")     x @apple_ids;
...
while (my($k,$v) = each %hash) {
   print "$fruit_map{$k}-$fruit_map{$v}\n";
}