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