foreach my $file (@files) {
   my $filename ...
   my $content ...
   if (!$fh{filename}) {
       open $fh{filename}, "> $filename"
          or die ...
   }
   print {$fh{filename}} $content;
}
foreach my $fh (keys %fh) {
   close($fh{$fh});
}