$ perl -MData::Dumper -e '
@arr1 = qw{ a b c };
@arr2 = qw{ 1 2 3 };
print Data::Dumper->new(
   [ $,, $", $\, $/, \ @arr1, \ @arr2 ],
   [ qw{ $, $" $\ $/ *arr1 *arr2 } ]
   )->Useqq( 1 )->Dump();'  
$, = undef;
$" = " ";
$\ = undef;
$/ = "\n";
@arr1 = (
          "a",
          "b",
          "c"
        );
@arr2 = (
          1,
          2,
          3
        );

##</code><code>##

$ perl -MData::Dumper -e '
@arr1 = qw{ a b c };
@arr2 = qw{ 1 2 3 };
print Data::Dumper->new(
   [ $,, $", $\, $/, \ @arr1, \ @arr2 ],
   [ qw{ $, $" $\ $/ $arr1 $arr2 } ]
   )->Useqq( 1 )->Dump();'
$, = undef;
$" = " ";
$\ = undef;
$/ = "\n";
$arr1 = [
          "a",
          "b",
          "c"
        ];
$arr2 = [
          1,
          2,
          3
        ];
$