perl -E 'my $a=25; my $x=\*a; say $x->**; say $$x;'
*main::a
*main::a