for(0..$#_){$menu{'stationen wahl'}->command(
  -label=>$_[$_]->name,-command=>sub {$welche_station=$_},
  -background=>$S::farbe,-activebackground=>$S::hfarbe);}