foreach my $keys1 (sort keys %{$excel_hash}) {
    while (my ($key2, $value) = each %{%$excel_hash{$keys1} } ) {
        print "$key2 = $value \n";
    }
}

##</code><code>##

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