while (my $line = <$IFH>) {
    . . .
    # For each regular expression
    for my $r (@rexlist) {
        # Pull the regular expression, name and file handle out of our array
        my ($rex, $name, $OFH) = @$r;
        # If the line matches the regex, write it to the file
        if ($line =~ $rex) {
            print $OFH $line;
        }
    }
    . . .
}