Select Code to Download

use constant DEBUG => 1;

...

debug( \$foo );
debug( \@bar );

$VAR1 = \'foo';
$VAR1 = [
...
          'bar',
          'baz'
        ];