Select Code to Download

$ perl -wMstrict -MData::Dumper -le 'my (%x,%y) = (1,2,3,4); print Dum
+per(\%x,\%y)'
$VAR1 = {
...
          '3' => 4
        };
$VAR2 = {};

use warnings;
use strict;
...
({ a => "red" }, { b => "green" }, { c => "black" })
({ a => "circle" }, { b => "square" }, { c => "rectangle" })
({ a => "red" }, { b => "green" }, { c => "black" })