#!/usr/bin/perl

use strict;
use warnings;

my @compass = (
    ["NW", "N", "NE"],
    ["W", "center", "E"],
    ["SW", "S", "SE"],
);

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