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