Select Code to Download

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)