Select Code to Download

my @data;
for my $file (qw(this.txt that.txt)) {
...
    push @{$data[-1]}, $_ if /\n\z/ && ! /^>/;
  }
}

@data = read_files( qw(this.txt that.txt) );

...
  }
  return @data;
}