use strict;
my $f;
($f = {})->{foo} = 'bar';
my %new;
%new = %{undef()};    # not okay