Select Code to Download

#!perl -w
use Data::Dumper;
...
print "case 2\n", Data::Dumper->Dump([$a, $b], [qw/x y/]);
print "case 3\n", Data::Dumper->Dump([$b, $a], [qw/b a/]);
print "case 4\n", Data::Dumper->Dump([$b, $a]);

case 1
$a = {
...
$VAR2 = {
          'type' => ${$VAR1}
        };