print
  map { $_->[1] }
  sort { $a->[0] <=> $b->[0] }
  map { [ (split /:/, $_)[0], $_ ] } @table;