$var = 'root'; $Data::Dumper::Varname = "$var"; print DAT Dumper($root);