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

##</code><code>##

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

##</code><code>##

  map { [ (split /:/, $_)[0], $_ ] } @table;

##</code><code>##

  sort { $a->[0] <=> $b->[0] }

##</code><code>##

  map { $_->[1] }