#!/usr/bin/perl
sub static_hash {

	print { one => 1, two => 2 };
	print $/;
}

static_hash;
static_hash;
static_hash;

##</code><code>##

planz$ perl /tmp/static.pl 
HASH(0x1801380)
HASH(0x1801380)
HASH(0x1801380)

##</code><code>##

#!/usr/bin/perl
sub static_hash {

	print { one => $_[0], two => time };
	print $/;
}

static_hash(8);
static_hash(9);
static_hash(10);