Select Code to Download

$VAR1 = {
          'last' => [
...
                   'long'
                 ]
        };

foreach my $code ( keys %{$info} ) {
...
    }
    print "\n";
}