foreach my $station (@stationsliste) {
   print "Station ". $station ->('desc') . " wird abgefragt...\n";
   foreach my $wetterdat (@wetterdaten)
   {
      print "\nHole Daten fuer " . $wetterdat->{'desc'} . "...\n";
.
.