for my $station ( @stationen ) {
  for my $wetter ( @wetter ) {
    print "$station : $wetter\n";
  }
}