if ($self->{_mydata}[2][3] eq "John")
or
if ($$self{_mydata}[2][3] eq "John")

##</code><code>##

print $self->{_mydata}[2][3];
or
print $$self{_mydata}[2][3];