my $dot_after = 2;
..
my $fr2 = $scrolled_top->Frame(-borderwidth => 2, -relief => 'groove')->pack(-side=>'top',-anchor=>'w',-pady=>5);
  $fr2->Label(-text => "Numbers as dot if ")->pack(-side => 'left',-expand => 1);
  $fr2->Radiobutton(-text => "1",-variable => \$dot_after, -value=>'1')->pack();
  $fr2->Radiobutton(-text => "2",-variable => \$dot_after, -value=>'2')->pack();
  $fr2->Radiobutton(-text => "3",-variable => \$dot_after, -value=>'3')->pack();
  $fr2->Radiobutton(-text => "4",-variable => \$dot_after, -value=>'4')->pack();
  $fr2->Radiobutton(-text => "never",-variable => \$dot_after, -value=>'9999')->pack();