sub process_log {
    my ($log_fh, $pattern) = @_;
    my @issues;
    while( my $line = <$log_fh> ){
        if( $line =~ m/^$pattern / ) {
            chomp $line;
            print "INFO: $line\nThis occurred on line $.\n";
            push @issues, {
                log_entry => $line,
                line_num  => $.
            };
        }
    }
    return @issues;
}