Select Code to Download

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

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