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

##</code><code>##

   my $v=0; #0 for silent, 1 for main info, 2 for all info

   ...
   print "something important\n" if $v > 0;
   print "something not so important\n" if $v >1;