Select Code to Download

sub process_log {
    my ($log, $pattern) = @_;
...
}

my $problems = process_log(\@Log, $FAILURE_SEARCH);

sub process_log {
    my ($log_fh, $pattern) = @_;
...
    }
    return @issues;
}