foreach my $datei (@ohneendung){
  &functions($datei);
}

sub functions{
  my ($datei) = @_;
  print $datei,"\n";
  open(my $fh,"<",$datei) or die $!;
  # code
  close $fh;
}