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