Select Code to Download

#!/user/bin/env perl

...
push(@{$hash{$key}},$insert_value);

print Dumper(\%hash);

$VAR1 = {
          'A' => [
                   123
                 ]
        };