$data1=
{'Family' => {
    'House' => [
        {
            'Id' => '1111',
            'Name' => 'DFG'
        },
        {
            'Id' => '211',
            'Name' => 'ABC'
        }
               ]
            }
}

foreach(keys%$data1) {

    if(ref($data1->{$_}) eq 'HASH') {

        foreach my $inner_key (keys%{$data1->{$_}})    {

            print "Key:$inner_key and value:$data1->{$_}->{$inner_key}n";
        }
    }
    else {

            print "Key: $_ and Value: $data1->{$_}n"
    }
}

print "Key:$inner_key and value:$_->{Name}n"
  for @{$data1->{$_}->{$inner_key}};

for $inner_hash (@{ $data1->{Family}{House} }) {
   say "Name: $inner_hash->{Name}"
   }

#!/usr/bin/perl

use strict;
use warnings;

my $data1=
{'Family' => {
        'House' => [
        {
            'Id' => '1111',
            'Name' => 'DFG'
        },
        {
            'Id' => '211',
            'Name' => 'ABC'
        }
        ]
    }
};

while (my ($key1, $val1) = each %$data1) {
    print "$key1 = $key1n";
    while (my ($key2, $val2) = each %$val1) {
        print "t$key2 = $key2n";
        foreach my $val3 (@$val2) {
            while (my ($key4, $val4) = each %$val3) {
                print "tt$key4 = $key4 => $val4n";
            }
            print "n";
        }
    }
}