my %hash;
my @regexs = (Ausdruck1, Ausdruck2, Ausdruck3);
open my $fh,'<',$filename or die $!;
while(my $line = <$fh>){
   my ($regex) = grep{$line =~ /$_/}@regexs;
   $hash{$regex} = $line unless exists $hash{$regex};
}
close $fh;

my @lines = values %hash;
print $_ for @lines;

my %hash;
my @regexs = (Ausdruck1, Ausdruck2, Ausdruck3);
open my $fh,'<',$filename or die $!;
while(my $line = <$fh>){
   my ($regex) = grep{$line =~ /$_/}@regexs;
   $hash{$regex} = [$line,$.] unless exists $hash{$regex};
}
close $fh;

my @lines = map{$_->[0]}sort{$a->[1] <=> $b->[1]}values %hash;
print $_ for @lines;