my @files = \( *FILE1, *FILE2 );
open FILE1, ">$path1" or die $!;
open FILE2, ">$path2" or die $!;
foreach my $file ( @files ) {
    print $file "Some data\n";
}