STATUS : BANK1 ACTIVE BANK2 ACTIVE BANK3 ACTIVE STATUS : BANK1 ACTIVE....

##</code><code>##


my $upframe = ...;
my %entry_widget; # stores the entry widget for a bank

sub update_bank_status {
  my ($upframe, $bank, $status) = @_;
  my $entry = $entry_widget{$bank};
  unless ($entry) {
    $entry_widget{$bank} =
      ...create a new label and entry widget...
  }
  $entry->configure(-text => $status);
  $entry->configure(-foreground =>
    $status eq "ACTIVO" ? "blue" : "red");
}

sub update_statuses {
  ...open file...
  while (<FILE>) {
    my ($bank, $status) = ...parse info...;
    update_bank_status($upframe, $bank, $status);
  }
  close(FILE);
}