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

my @sorted = sort {
    my @A = split ':', $a;
    my @B = split ':', $b;
    $A[0] <=> $B[0];
} @table;
print @sorted;
[download]