use strict; use warnings; my @aFiles; for (0..2) { my $sFile = "foo.$_"; open($aFiles[$_], '>', $sFile) or die "$sFile: $!"; my $fh = $aFiles[$_]; #make print happy print $fh "Hello World\n"; close $fh; }