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");