my $var_frame .= $num;
my $varbind_l .= $num;
my $varbind_e .= $num;

##</code><code>##

use Tk;
use strict;
my $left_frame_bottom = MainWindow->new; 
my @text=qw('' a b c d e); # entry defaults

for (1..5) {
  my $var_frame = $left_frame_bottom->Frame(
  )->pack(-side => 'top', -fill => 'both',
    -pady => '2', -expand =>'1');
 
  my $varbind_l = $var_frame->Label(
    -text  => "Varbind ".$_,
    )->pack(-side => 'left', -padx => '5');

  my $varbind_e = $var_frame->Entry(
    -textvariable => \$text[$_],
    -width => '15',
    )->pack(-side => 'right', -padx => '5');
}

$left_frame_bottom->Button(-text => 'print_values',
     -command => sub {print_values()}
     )->pack();

MainLoop;

sub print_values {
  map { print "Varbind $_ = ",$text[$_],"\n" }(1..5);
}