my @files = ('bla_1.txt', 'bla_2.txt', 'bla_3.txt');
my @data;
foreach my $file (@files)
 {
  open(F, "<$file") or die "Konnte $file nicht öffnen.";
  my @tmp = <F>; # Wenn du nur ein paar Spalten speichern willst, musst du @tmp hier bearbeiten.
  close(F);
  push(@data, [ @tmp ]);
 }