Select Code to Download

my $lam_num_ent = $lam_mat_frm -> Entry(),
    -variable=> \$lam_num;

my $lam_num_ent = 
    $lam_mat_frm -> Entry(-textvariable=> \$lam_num);

my  %ort_optmen;

$ort_optmen{$num}{'widget'} = whatever
$ort_optmen{$num}{'variable'} = whatever
$ort_optmen{$num}{'options'} = whatever

#!/usr/bin/perl
use warnings;
...
      }
}