my $obj = new pseudohashobject;
$obj->{variablee} = 'bar';  # TYPO
print $obj->{variable};