use constant DEBUG => 1;

sub debug {
    return unless DEBUG;
    my $ref = shift;
    print STDERR Dumper $ref;
}

my $foo = 'foo';
my @bar = ( qw/ foo bar baz / );

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