#!/usr/bin/perl
use strict;
use warnings;
use lib '.';
use test111;

my $liste = ['./datei1','./datei2','./datei3'];

test111->do_open($liste) or die $!;

package test111;
use strict;
use warnings;
use Carp;

sub do_open {
   my $package = shift;
   my $liste = shift;
   foreach my $datei (@{$liste}) {
      open my $FH,'<',$datei or croak("Datei $datei konnte nicht geoeffnet werden, ",__PACKAGE__,":",__LINE__);
      close $FH;
   }
}

1;