use strict;
use warnings;

use Tk;
my $mw = MainWindow->new;

my $package = 'normal';
foreach my $type (qw(normal pckg_A pckg_B)) {
    $mw->Radiobutton(
        -text     => "  $type",
        -value    => $type,
        -variable => \$package,
    )->pack;
}

MainLoop;