my @filez;
open $filez[ $_ ], ">data/file$_.dat" or die $! for 0..2;

for my $i ( 0..2 ) { 
    print { $filez[ $i ] } 'somedata'; 
#required ^..............^
}
close $filez[ $_ ] for 0..2;