Select Code to Download

use Data::Dumper;

...


print Dumper(\%x), $/;

$VAR1 = {
          1 => 5,
...
          1 => 2,
          3 => 5
        };