#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;

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

push (@another_compass, ["NW", "N", "NE"]);
push (@another_compass, ["W", "center", "E"]);

#print Dumper \@another_compass; # uncomment to see what this does

print "Dumping another_compass...\n";
foreach my $compass_row (@another_compass)
{
   print "@$compass_row\n";
}
__END__
Prints:
Dumping another_compass...
NW N NE
W center E