sub do_other_stuff {

  open $FOOFILE, '>>', $filepath or die "Couldn't open $filepath \n";

    for ( my $inner_loop = 0 ; $inner_loop < 5 ; $inner_loop++ ) {

        if ( $inner_loop == 3 ) {
            print $FOOFILE "A match!\n";
        }

    }
    close $FOOFILE;
}