Select Code to Download

print "Sorted table...\n\n";
{
    no warnings 'numeric';
    print sort { $a <=> $b } @table;
}