#!usr/bin/perl
use strict;
my @files=();
push(@files,{name=>'./test.txt' open=>">", $fh=>''});
push(@files,{name=>'./test2.txt' open=>"<", $fh=>''});
push(@files,{name=>'./test3.txt' open=>">>", $fh=>''});
for my $i (@files)
{
  open($i->{fh},$i->{open},$i->{name}) or die "Fehler $!\n";
}
# mach irgendwas mitr den Dateihandles
for my $i (@files)
{
  close($i->{fh}) or die "Fehler $!\n";
}