Select Code to Download

use strict;

...
   my @minorArray = split('\|', $_);
   push @majorArray, \@minorArray;
}

my $arrayRef = $majorArray[0];
foreach my $temp (@{$arrayRef})
{
   print $temp,"\n";
}

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