perl -w
my @array = qw/ test /;
my $n = 0;
print '$array[$n]' . "\n";

# ausgabe
$array[$n]