Here's my guess for what I think you are saying you want.
Whether it's actually what you want ???

#!/usr/bin/perl

use strict;
use warnings;
use Tk;
use Tk::Pane;

my $mw = MainWindow->new;
$mw->geometry('400x250');
my $frame = $mw->Frame(
         -bg => 'lavender',
         -relief => 'sunken',
         -width => 400,
         -height => 250,
         )->pack(-expand => 1, -fill => 'both');

my $pane = $frame->Scrolled( Pane => -scrollbars => 'e', -sticky => 'n
+sew',
  )->place( -x => 50, -y => 12, -width => 200, -height => 200);

my @strings2 = qw/apples bananas pears grapes/ x 5; 

$pane->Checkbutton(-text => $_, -anchor => 'w',
  )->pack(-fill => 'x') for @strings2;

MainLoop();
[download]