sub ausgabe4 {
        my ($uebergabe)=shift @_;
        my ($arrayRef)=@_;
        my $suchstring = qr/$uebergabe/im;
        print "-- $suchstring -- \n";
        foreach my $array ( @{$arrayRef} ) {
                my @result=();
                while ($array->[1] =~ /$suchstring/g) {
                        push @result, $1. " --> " .$2. "\t";
                }
                printf "%-90s :  %-s\n", $array->[0], join(" ",@result);
        }
}