my @tarray = qw(one two three four five); my ($v2) = @tarray; my $v3 = (@tarray)[0];