perl -le'print join ", ", @$_ for sort { $a->[0] cmp $b->[0] } map [re +verse split], <>' [download]
In reply to Re: sorting a file by Juerd in thread sorting a file by samoguz