#!/usr/bin/perl
use strict;
use warnings;

my $x;
1 for %$x;
print $x, "\n";  # HASH(0x26a18cd)