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