Select Code to Download

use Data::Dumper;
my @m;
...
for (0..3) {
  print "length of m[$_] = ", scalar(@{$m[$_]}), "\n";
}