Select Code to Download

#!/usr/bin/perl
use strict;        # Always use strict
...
for my $code (keys %hash) {
    print "$code $hash{$code}\n"
}