sub ausgabe1 {
        my @{$arrayRef}=@_;
        foreach my $array (my @{$arrayRef} ) {
                print "$array->[0]\n", "${$array}[1]\n";
        }
}