I think this does what you are hoping for. Use an array to store each widget as you create them so you can use it after you create them, creating.

use Tk;
use Tk::Frame;
use Tk::Entry;
use strict;

my %info;

my @widgets;

$info{LOCname}{1}= "first place";
$info{LOCname}{2}= "second place";
$info{LOCname}{3}= "third place";

my $top = tkinit;


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=3;
my $x = 1;
while($x <= $userINputNumber)
{
    push @widgets, $_ = $left4->Entry(-width=>12,
        -background =>'white',
        -borderwidth=>2,-relief=>'sunken',
        -textvariable => \$info{LOCname}{$x}
    )->pack();


    $_->insert('end',"");
    
$x++;
}

MainLoop;
[download]

JamesNC