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