use strict;

open (INPUT, "myFile.txt") || die "Couldn't open file: $!\n";

my @majorArray;
while (<INPUT>)
{
   my @minorArray = split('\|', $_);
   push @majorArray, \@minorArray;
}

##</code><code>##

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

##</code><code>##

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