$ perl -MData::Dumper -e 'print Data::Dumper->new(["foo"])->Dumpxs'
$VAR1 = 'foo';