Select Code to Download

my @files = ("foo.txt");

aaa    bbb    ccc
000    111    222

( "111" => ["sth"],
  "bbb" => ["sth"] )

use warnings;
use strict;
...

    close $fh;
}

(
  { "111" => ["sth"],    # data from foo.txt
...

  { ... }                # data from bar.txt
)