<>; $a[$_]=++$%for glob<>; $m>$a[$_]or$_[$_]=$m=$a[$_]for glob<>; $,=$/;print grep$_[$_],1..@_