perl -wMstrict -E 'my $x="0x41"; my $y = \$x; say $y->$*'
0x41

##</code><code>##

perl -wMstrict -E 'my $href={a=>1}; say $_ for keys $href->%*'
a

##</code><code>##

perl -wMstrict -E 'my $href={a=>1}; say $_ for keys %{ $href }'
a

##</code><code>##

perl -wMstrict -E 'my $href={a=>1}; say $_ for keys %$href'
a