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;
}