use strict;
my %a;
if ($a{'foo'}) {}
print keys %a;