Help for this page

Select Code to Download

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

Select or download this

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