my %fh;
open $fh{$_}, '>', $_ 
  or die "Can't open `$_': $!\n"
  for @many_files;
# if they're not TOO many ;-)