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

usw.