if ($self->{_mydata}[2][3][0] eq "John")
  {
  print "My name is $self->{_mydata}[2][3][0]\n";
  }