Select Code to Download

#!/usr/bin/perl
use strict; 
use warnings;
...
for my $key (@myarray) {
    print "$key\t-> $value_map{$key}\n";
}