Select Code to Download

#!/usr/bin/perl

...
print "Sorted table...\n\n";
print sort { (split ":", $a)[0] <=> (split ":", $b)[0] } @table;
print "\n";

print { (split ":", $a)[0] <=> (split ":", $b)[0] }