my @alle_radio_btns = ();
$alle_radio_btns[0] = $frm_auswahl -> Radiobutton(-text=>"Auswahl1",  
                -value=>"a1",  -variable=>\$portal);
$alle_radio_btns[1] = $frm_auswahl -> Radiobutton(-text=>"Auswahl2",  
                -value=>"a2",  -variable=>\$portal);
$alle_radio_btns[2] = $frm_auswahl -> Radiobutton(-text=>"Auswahl3",  
                -value=>"a3",  -variable=>\$portal);
$alle_radio_btns[3] = $frm_auswahl -> Radiobutton(-text=>"Auswahl4",  
                -value=>"a4",  -variable=>\$portal);

# später, wenn sie mit grid positioniert werden:
# NB: beginne in Zeile 3
my $gridde_ab_zeile = 3;
for( my $zaehler = 0; $zaehler < scalar(@alle_radio_btns); $zaehler++ ) {
    my $radiobtn = $alle_radio_btns[ $zaehler ]; # das ist ein aktueller Radio-Button
    my $ziel_zeile = $gridde_ab_zeile + $zaehler; # hier wird die Zeile berechnet
    $radiobtn->grid(-row => $ziel_zeile, -column => 0);
}