foreach my $keys1 (keys %{$excel_hash}) {
    print "$keys1\n";
	foreach my $keys2 (keys %{%$excel_hash{$keys1}}) {
	print "$keys2\n";
	my $value = %{%$excel_hash{$keys1}{$keys2}};
	}
	}

##</code><code>##

$VAR1 = \{
            '002' => {
                       'Name' => 'BBB'
                     },
            '001' => {
                       'Name' => 'AAA'
                     }
          };
002
Name
001
Name