You are evaluating it in array context, try:

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

and your print statment should be:

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