Select Code to Download

12   AAAA
12   AAAA
15   BBBB
1222 CCCC
1    BBBB

use strict;
my $value;
...
foreach $key (sort keys %yahoo) {
       print "$key: @{$yahoo{$key}}\n";
}