<>; @x=glob<>; @y=sort{$a-$b}glob<>; for$x(@x){ ($_)=grep$x<$_,@y; print$_?$_-$x:Infinity,$/; }