use strict;

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

##</code><code>##

my($horaceGreeleyDir) = dirs()[3];
my($horaceGreeleyDir) = @{dirs()}[3];
my($horaceGreeleyDir) = ${dirs()}[3];
my($horaceGreeleyDir) =()[3] = dirs();

##</code><code>##

(undef, undef, undef, my  $horaceGreeleyDir) = dirs();