my @neu = filter_liste();

sub filter_liste{
    my @neu;
    for( @liste ){
        # wenn Ausdruck wahr, dann schiebe das Element in das Array;
        if( ! $hash{$_}++ ){
            push @neu, $_;
        }
    }
    return @neu;
}