my @array = qw/one two three/;
my $x = $array[0];