Select Code to Download

use strict;
use warnings;
...

print Dumper (\%HoH);
print Dumper (\%MultiHash);

$VAR1 = {
          'SA' => {
...
$VAR1 = {
          'SA0009' => 1
        };