#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
my $compass =
    [
       ["NW", "N", "NE"],
       ["W", "center", "E"],
       ["SW", "S", "SE"]
    ];
print Dumper($compass);
print $compass->[0][1];