sub make_entry {
  my ($upperframe, $label, $filename) = @_;
  ...
}
make_entry($upperframe, 'Santander', "santa1.txt");
make_entry($upperframe, 'Banamex', "banamex.txt");
make_entry($upperframe, 'HSBC', "hsbc.txt");
make_entry($upperframe, 'Banorte', "banorte.txt");

##</code><code>##

  my $entry = $upperframe->Entry(-textvariable => ...)->pack(...);
  $entry->configure(foreground => ...bank is active... ? 'red' : 'blue');