sub compare {
    my @A = split /:/, $a;
    my @B = split /:/, $b;
    $A[0] <=> $B[0];
}

my @sorted = sort compare @table;
print @sorted;