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