if( exists($foo->{$_} and exists($foo->{$_}->{bar} ) {
  ...
}