#!perl -pa $i=0,s/\d+,?/$s=$&+1e13;$&>$i++?$s:~"$s"/ge for@F;$_=$F[0]cmp$F[1]