my @test = ( 0 );
if ( defined @{ $test[1] }[1] ){}
my $l = @test;
print $l;