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