<>;$r[$_]=++$=for glob<>;$,=$/;print sort{$a-$b}grep{$d=$r[$_]if$d<$r[$_]}glob<>