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