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