Stricture didn't catch it because it isn't an error. Perl does a nifty bit of DWIMery when you use a bareword as a hash key and just uses the string as a key, so you're creating a key called "key1".