Select Code to Download

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

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