print sort { $a cmp $b } @table;