our %fred;

$fred{hash_key} = 'something';

##</code><code>##

c:\test>perl -E"${*STDIN}{fred} = 'bill'; say $STDIN{fred}"
bill