$mw->repeat(1000, \&status_bank);

sub status_bank{
   ......... do your extraction from file

   $mw->update;
   
}

##</code><code>##

my %box_banamex;

$box_banamex{$bank}{'entry'} = $upperframe->Entry(.........
                -textvariable => \$box_banamex{$bank}{'status'},
 

foreach my $bank (keys %box_banamex){
      #read each value from file
     $box_banamex{$bank}{'status'} = whatever from file parsing;
    $box_banamex{$bank}{'entry'}->update;
}