sub _{'h'};%_=('p');@_=qw(a);$_='j';$;=\*_;
print  ${*${;}},@{*${;}},%{*${;}},&{*${;}};