perl -le'print join ", ", @$_ for sort { $a->[0] cmp $b->[0] } map [reverse split], <>'