#!/usr/bin/perl -w
use strict;

my $var;

if (defined $var->{FOO}->{BAR}) { print "found" }

use Data::Dumper;
print Dumper $var;

__END__
$VAR1 = {
          'FOO' => {}
        };