my $left4 = $top->Frame(-background=>'gray',
	)->pack(-side=>'left',-pady=>2,-padx=>15);
	my $tax= $left4->Label(-text=>'Time In',
		-background=>'gray')->pack();
my $userINputNumber;
my $x = 1;
while($x <= $userINputNumber)
{
	my $timIn = $left4->Entry(-width=>12,
		-background =>'white',
		-borderwidth=>2,-relief=>'sunken',
		-textvariable => \$info{LOCname})->pack();
	$timIn->insert('end',"");
	
$x++;
}