Select Code to Download

#!/usr/bin/perl -CSDA

...
my $d2 = Dumper($h); 
$d1 eq $d2 or  die "\nFAIL! h{x} modified, h{y} not modified... why?\n
+\n$d1\n$d2";

grep: 1 ... 2
test: no
...
          'c' => 2,
          'x' => undef
        };