Select Code to Download

use Data::Dumper;

...

print "--- \@a after ---\n", Dumper \@a;
print "--- \%a after ---\n", Dumper \%a;

--- @a before ---
$VAR1 = [
...
          'b' => 1,
          'd' => 1
        };