my @array = qw /One Two Three/; my $var = 2; print $array[$var], "\n";