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