#---- find-match.pl------
#!/usr/bin/perl 

use strict;
use warnings;

my %match_files = (
  m1 => 'match',
  m2 => 'nomatch0',
  m3 => 'nomatch1',
);

my %match_fh;
for (keys %match_files) {
  open my $fh, '>', $match_files{$_}
    or die "Can't open $match_files{$_}: $!\n";
  $match_fh{$_} = $fh;
}

while (<>) {
  my $match_result = test_for_match($_); # whatever it is!
  my $fh = $match_fh{$match_result};
  unless ($fh) { # well, just in case
    warn "File $ARGV at line $. returns unexpected match result: $match_result. Skipped\n"; # or put to another file?
    next;
  }
  print $fh;
  close(ARGV) if eof(ARGV);
}

##</code><code>##

$ perl find-match.pl file0 file1 fileN