my %t;
tie %t, 'TH';

$t{test} = date('2012-01-01');
print $t{test}-=5;


# standard hashverhalten
package TH;

use Tie::Hash;

sub TIEHASH {
	my $self = {};
	my $class = shift;
	bless $self, $class;
}

sub STORE {
	$_[0]->{$_[1]} = $_[2];
}

sub FETCH {
	return $_[0]->{$_[1]};
}