my @array;
# Erst alle Dateien oeffnen
for my $number (0..2) {
   open my $f, '>', "datei$number" or die "datei$number: $!";
   # Schiebe das Handle in das Array
   push @array, $f;
}

# Dann ueber alle Handles iterieren
for my $handle (@array) {
   print $handle "text\n" or die $!;
   close $handle or die $!;
}