Select Code to Download

my %browsers = ();

foreach ($line) {  # eg '12|netscape'
...
}

print sort { $browsers{$a} <=> $browsers{$b} } keys %browsers;