Select Code to Download

#!/usr/bin/perl

...
}
foreach (keys %all_of_it) { print "$all_of_it{$_}[0][0]\n";}

foreach (@lines) {
    chop;
...
}
foreach (keys %all_of_it) { print "$key,$all_of_it{$_}[0]\n";}