Select Code to Download

    open(INFILE,$infile) or die "Can't open $infile\n";
    print "opened $infile\n";<STDIN>;
...
        $hash_codes{$2}=>$5;#useless
        }
    }

$key = $2;
$value = $5;
$hash{$key}=>$value;