print Data::Dumper->Dump([$var1, $var2, $var3], [qw($var1 $var2 $var3)]);