16:36 >perl -wE "my %h = (Fred => 'Wilma'); my ($k, $v) = each %h; say length $k;"
4

16:36 >perl -wE "my %h = (qq['Fred'] => 'Wilma'); my ($k, $v) = each %h; say length $k;"
6

16:36 >perl -wE "my %h = ('Fred' => 'Wilma'); my ($k, $v) = each %h; say length $k;"
4

16:37 >