use strict 'refs'; print ${exists $foo{'bar'}};