#!/usr/bin/perl
 use strict;
 use warnings;
 my @compass =
         (
             ["NW", "N", "NE"],
             ["W", "center", "E"],
             ["SW", "S", "SE"]
         );
         
my @compassB =
        ( [
             ["NW", "N", "NE"],
             ["W", "center", "E"],
             ["SW", "S", "SE"]
          ],
          [
             ["A", "B", "C"],
             ["D", "E", "F"]
          ]
         );         

 print $compass[0]->[1];       #prints N
 print $compassB[0]->[0]->[1]; #prints N
 print $compassB[1]->[0]->[1]; #prints B

 my $ref=\@compassB;  #added example with reference
 print $ref->[0]->[0]->[1];    #prints N

 my $firstAoA = $compassB[0];  
 print $firstAoA->[0][1];      #prints N