Select Code to Download

@data=<FILE>;  <-- Puts the whole file in @data
while(<FILE>)  <-- There's nothing left to read here.

#!/usr/bin/perl

...
while (<$fh>) {
   push @list, [split/s+/];
}