Select Code to Download

package List::Merger;
@ISA         = qw(Exporter);
...
        return $next;
    };
}

my $finish   = 'A val that is guaranteed not to be present in any list
+';
my @list     = (\@arr1, \@arr2, \@arr3, \@arr4, \@arr5);
...
    last if defined $item && $item eq $finish;
    print "$item\n";
}

my $finish   = 'A val that is guaranteed not to be present in any list
+';
my @list     = ($fh1, $fh2, $fh3, $fh4, $fh5);
...
    last if defined $item && $item eq $finish;
    print "$item\n";
}