#!/usr/bin/perl
 use strict;
 use warnings;
 my @compass =
         {
        ["NW", "N", "NE"],
        ["W", "center", "E"],
        ["SW", "S", "SE"]
        };

 print $compass[0]->[1];

>Odd number of elements in anonymous hash at array_compass.pl line 4.
>Not an ARRAY reference at array_compass.pl line 11.