$data->{foo} = undef;

if ( exists $data->{foo} ) {
    print $data->{foo}{bar};    # 'Use of uninitialized value in print...'
}