#!/usr/bin/perl -w
#
use strict;
use Tk;

my $mw = tkinit();

my $radio = {group1 => [qw/1 2 3 4 5 6 7 8 9/],
              group2 => [qw/a b c d e f g h i/]};

foreach my$group (keys %{$radio}) {
   if ($group =~ /1/) {
     for my$i (0..$#{$radio->{$group}}) {
       $mw->Radiobutton(-value => $radio->{$group}->[$i],
                        -variable => \$radio->{var1},
                        -text => $radio->{$group}->[$i])->pack(-anchor,"e",-side,"top");
     }
   }
   else {
     for my$i (0..$#{$radio->{$group}}) {
       $mw->Radiobutton(-value => $radio->{$group}->[$i],
                        -variable => \$radio->{var2},
                        -text => $radio->{$group}->[$i])->pack(-anchor,"n",-side,"right");
     }
   }
}

MainLoop;