print "Sorted table...\n\n";
{
    # no warnings 'numeric';
    print sort { $a cmp $b } @table;
}