@list = (
  [ 1, 2, 3],
  [ 1, 2, 3],
  [ 1, 2, 3],
  [ 4, 5, 6]
);
print scalar @list,"\n";