my @handles;
foreach my $filename (@$dateien) {
    open my $fh, '<', $filename or die $!;
    push @handles, $fh;
}

# später
my $handle = $handles[123];
print while <$handle>;