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