use strict;
use warnings;

sub get_undef {
    my $undef = undef;
    # force scalar context
    return $undef;
}

my %hash = (
    &get_undef => 'sad but true',
    'true'  => '0 but true',
);

use Data::Dumper;
print 'Results ' . Dumper(\%hash);