foreach my $item (@majorArray)
{
   foreach my $subitem (@{$item})
   {
      print $subitem,"\n";
   }
}