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