open( FH, $file1 ) or die $!;
my $filter = &GetFilter($filterFile);
my @lines = <FH>;
close( FH );

sub GetFilter {
  my ($file) = @_;
  open( FH, $file) or die $!; # schliesst das aeussere FH
  my $filter = <FH>;
  close(FH);
  return $filter;
}