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

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

##</code><code>##

ARRAY(0x8cfc10)