...
my $paramre = join '|', @params;
...
while (<INPUT>) {
  next unless /\s($paramre)\s*(\d*)/;
  print OUTPUT "$1 $2\n";
}
...