my $lam_num_ent = $lam_mat_frm -> Entry(),
	-variable=> \$lam_num;
my $ort_optmen1 = $lam_mat_frm -> Optionmenu(-options => [qw(-45 0 45 90)],
	-variable => \$ort1);
my $ort_optmen2 = $lam_mat_frm -> Optionmenu(-options => [qw(-45 0 45 90)],
	-variable => \$ort2);
my $ort_optmen3 = $lam_mat_frm -> Optionmenu(-options => [qw(-45 0 45 90)],
	-variable => \$ort3);
$ort_optmen1 -> configure(-state => 'disabled');
$ort_optmen2 -> configure(-state => 'disabled');
$ort_optmen3 -> configure(-state => 'disabled');
my $lam_data_button = $button_frm->Button(-text=>"Input Laminate Data",
	-command=> \&input_lam_data);


sub input_lam_data {
	$n = 1;
	do {
	my @ort_optmen;
	$ort_optmen[$n] -> configure(-state => 'normal'); #This line is the issue
	$n = $n+1;
	} until ($n == $lam_num+1);
}