Help for this page
use strict; use warnings; ... print " line $_->[1] of file1 ($key$_->[0])\n" for @matches; } close IN;
Line 4 of file2 (chocolatedogdogfishmouse) matches: line 3 of file1 (chocolatedogdogfishmousecatdeerbird)