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;