Strange things:

• You define a sub overlap { ... } inside a while () loop.
• You don't call this sub (overlap).
• You use @file1 = <MYFILE> then while(defined(my $line1 = <$file1>.

Add use strict; use warnings; in the begining of your script will help.