package XXX;

my %already_created_objects;

sub new {
	my ($class, $X) = @_;
	if (!$already_created_objects{$X}) {
		$already_created_objects{$X} = bless {somekey => $X} $class;
	}
	$already_created_objects{$X}
}