<>;@c=glob<>;$-+=$c[$-]<=$c[$j=$-+1]||-(@c[$-,$j]=@c[$j,$-,push@m,"$- $j\n"])while$-<$#c;$|=print@m.$/,@m