$m=<>;$i++,print,$m=~/\b$i\b/&&print for<>