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

##</code><code>##

my $v3 = (@tarray)[0];

##</code><code>##

my ($v2) = @tarray;