my $x=1;
while($x <= $EMPnum)
{
	
	my $t1 = $left1->Label(-text=>"Guy #$x",
	-background=>'gray')->pack();

	my $num = $left2->Entry(-width=>12,
		-background =>'white',
		-borderwidth=>2,-relief=>'sunken',
		-textvariable => \$info{EmpNum}[$x])->pack();
	
$x++;
}