Select Code to Download

my $list = [];  # let's start with an array ref
while (<>) {
...
    print "list[$i][$j] = ", $list->[$i]->[$j], "\n";
  }
}