use Tk;

my $mw =MainWindow-> new (-title => "Demo");
$mw->geometry('340x300');
my $frame = $mw->Frame->pack(-expand => 1, -fill => 'both');
my $frame_tl= $frame->Scrolled('Text',
     -scrollbars => 'se',
)->pack(-expand => 1, -fill => 'both');

   
for (1..13){
   my $f = $f.$_;  
   $f= $frame_tl->Frame(-borderwidth =>2, -relief=> 'groove')->pack(-side => 'top', -fill => 'x');
   $f->Label(-relief => 'groove',-text=>" $_ :" )->pack(-side => 'left', -fill => 'y');
   $f->Entry(-takefocus => 1,-width => 60, -textvariable=>\$_)->pack(-side => 'left', -fill => 'y');  
} 


MainLoop;