my $num = 0; for (1..5) { $num ++; my $varbind .= "Varbind " . $num; my $var_frame .= $num; my $varbind_l .= $num; my $varbind_e .= $num; $var_frame = $left_frame_bottom->Frame( )->pack(-side => 'top', fill => 'both',-pady => 2,expand =>'1'); $varbind_l = $var_frame->Label( -text => "$varbind", )->pack(-side => 'left', -padx => '5'); $varbind_e = $var_frame->Entry( -textvariable => \$value . $num, -width => '15', )->pack(-side => 'right', -padx => '5'); }