Which part of the process is giving you trouble? You need to open a file, probably loop over the readline operator with a while loop, and likely split on whitespace into an array. Eventually you need to print the results.

my $list = [];  # let's start with an array ref
while (<>) {
  chomp;
  push(@$list, [split(' ', $_)]); # note the array ref [] constructor
}
# access the i-j-th element:
print "list[2][3] = ", $list->[2]->[3], "\n";
# access by rows:
for my $i (0..$#$list) {
  print "number of elements in row $i: ", scalar(@{$list->[$i]}), "\n"
+;
  print "last index of row $i = ", $#{$list->[$i]}, "\n";
}
# access each element:
for my $i (0..$#$list) {
  for my $j (0.. $#{$list->[$i]}) {
    print "list[$i][$j] = ", $list->[$i]->[$j], "\n";
  }
}
[download]

Would this be homework? If so, please say so. We are not against helping, but we will not spoon feed you. Also, please include what you have tried, errors you are seeing, and anything else that may help us help you.

Also see How do I post a question effectively?.