use strict;
use warnings;
sub get_undef {
# force scalar context
}
my %hash = (
&get_undef => 'sad but true',
'true' => '0 but true',
);
use Data::Dumper;
print 'Results ' . Dumper
(\%hash);
dXNlIHN0cmljdDsKdXNlIHdhcm5pbmdzOwoKc3ViIGdldF91bmRlZiB7CiAgICBteSAkdW5kZWYgPSB1bmRlZjsKICAgICMgZm9yY2Ugc2NhbGFyIGNvbnRleHQKICAgIHJldHVybiAkdW5kZWY7Cn0KCm15ICVoYXNoID0gKAogICAgJmdldF91bmRlZiA9PiAnc2FkIGJ1dCB0cnVlJywKICAgICd0cnVlJyAgPT4gJzAgYnV0IHRydWUnLAopOwoKdXNlIERhdGE6OkR1bXBlcjsKcHJpbnQgJ1Jlc3VsdHMgJyAuIER1bXBlcihcJWhhc2gpOw==