Select Code to Download

probe.pl < probe_input.file > output.file

#! C:\Perl\bin\perl

...
for (sort{ @{$probes{$b}} <=> @{$probes{$a}} } keys %probes) {
    print "$_, ", join(", ", sort @{$probes{$_}}), "\n";
}