Some sample code would help a lot.

It looks like your problem is that you are managing the widgets in $mw. You should be putting the widgets in the Pane (which is basically a scrolled frame).

use strict;
use warnings;
use Tk;

my $mw = MainWindow->new(-title => 'My Window');

$mw->Label(
    -text => 'Unscrolled Heading',
)->pack(
    -fill   => 'x',
);
my $scrolled_frame = $mw->Scrolled( 'Frame', 
    -scrollbars => 'e',
)->pack(
    -expand => 1,
    -fill => 'both',
);

foreach (1..100) {
    my $l = $scrolled_frame->Label(
        -text => "Label $_",
    );

    my $om = $scrolled_frame->Optionmenu(
        -options => [1..100],
        -variable => \$_,
    );
    my $e = $scrolled_frame->Entry(
        -text   => "Entry $_",
    );

    $l->grid(
        $om, $e,
        -sticky => 'ew',
        -padx => 5,
        -pady => 5,
    );
}

MainLoop;
[download]