Select Code to Download

  warn Data::Dumper->Dump(
    [$foo, \%this, \@array, \%that],
    [qw/*foo *that *array *this/]
  );

use Data::Dumper::Simple;
warn Dumper($foo, %this, @array, %that);

 use Data::Dumper;
 warn Dumper($foo, $bar, $baz);

 $VAR1 = 3;
 $VAR2 = 2;
 $VAR3 = 1;

  warn Data::Dumper->Dump(
    [$foo, $bar, $baz],
    [qw/*foo *bar *baz/]
  );

  $foo = 3;
  $bar = 2;
  $baz = 1;

  warn Data::Dumper->Dump(
    [$foo, \@array],
    [qw/*foo *array/]
  );

  $foo = 3;
  @array = (
             8,
             'Ovid'
           );

  warn Data::Dumper->Dump(
    [$foo, \%this, \@array, \%that],
    [qw/*foo *that *array *this/]
  );

  use Data::Dumper::Simple.
  warn Dumper($scalar, @array, %hash);

  $scalar = 'Ovid';
  @array = (
...
            'I' => 'hope',
            'at' => 'least'
          );

 my $foo   = { hash => 'ref' };
 my @foo   = qw/foo bar baz/;
 warn Dumper ($foo, \@foo);

 $foo = {
   'hash' => 'ref'
...
   'bar',
   'baz'
 );

  Dumper($foo, some_sub()); # Bad!