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