Another option is to pack the buttons into a Pane inside the main window. A benefit to this is you can make just a portion of the window scrollable if you should so desire.

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

my $top = MainWindow->new;

my $pane = $top->Scrolled('Pane',
    -scrollbars => 'e',
)->pack(-expand => 'y', -fill => 'both');

for (0 .. 9)
{
    $pane->Button(
        -text => $_,
        -width => 15,
        -command => [sub{print "Button $_[0] Pressed\n"},$_],
    )->pack;
}

$top->Button(
    -text => 'Quit',
    -command => sub{$top->destroy},
)->pack;

MainLoop;
[download]

Are you sure this is what you want? I have Tk apps that have dynamic buttons, but they tend to resize their toplevel window as more buttons are added.

I also use stretchy grids sometimes where the size of the grid cells is a proportion of the toplevel window's size.

Anyway, coming back to your original request, this can be done using a Scrolled HList (an HList is an easy way to get a vertical array of buttons capable of being scrolled).

#!/usr/bin/perl
use warnings;
use strict;
use Tk;
use Tk::Pane;

my $top = MainWindow->new;
$top->geometry("150x300");

my $pane = $top->Scrolled('Pane',
-scrollbars => 'oe',    #   'osoe'  for both bars
)->pack(-expand => 'y', -fill => 'both');

for (0 .. 5)
{
$pane->Button(
-text => $_,
-width => 15,
-command => [sub{print "Button $_[0] Pressed\n"},$_],
)->pack;
}

$top->Button(
-text => 'Quit',
-command => sub{$top->destroy},
)->pack;

MainLoop;
[download]

zentar's example was a great Thank You - Im trying to get this to work using "place()" rather than "pack()" ?