open (IN, "file1") or die("can't blah blah");
while (<IN>) {
    print;
    print slurp();
}
sub slurp {
    local *IN;
    my $slurp = do { local $/ = undef; open IN, "file2"; <IN>};
    return $slurp;
}

##</code><code>##

open (my $in, "file1") or die("can't blah blah");
while (<$in>) {
    print;
    print slurp();
}
sub slurp {
    my $slurp = do { local $/ = undef; open my $in, "file2"; <$in>};
    return $slurp;
}