use strict;

sub dirs{qw(NORTH SOUTH EAST WEST)}
my(@temp) = dirs();
my($horaceGreeleyDir) = $temp[3];