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