$h{key} = 0; 
$h{key} ||= "foo"; 
print $h{key};

##</code><code>##

$h{$key} = "value" unless exists $h{$key};