my $DEBUG = 1;

...

print Dumper(\%x) if $DEBUG;