perl -MData::Dumper -e " $a = 1; print Data::Dumper->Dump( [$a], [qw(*a)] ) "
$a = 1;

##</code><code>##

perl -MData::Dumper -e " $a = 1; print Data::Dumper->Dump( [$a], [*a] ) "
$VAR1 = 1;