knoppix@Microknoppix:~$ perl -MData::Dumper -E '
> @arr1 = ( 1 .. 4 );
> @arr2 = [ 1 .. 4 ];
> $arr3 = [ 1 .. 4 ];
> print Data::Dumper->Dumpxs(
>    [ \ @arr1, \ @arr2, $arr3 ],
>    [ qw{ *arr1 *arr2 arr3 } ],
>    );'
@arr1 = (
          1,
          2,
          3,
          4
        );
@arr2 = (
          [
            1,
            2,
            3,
            4
          ]
        );
$arr3 = [
          1,
          2,
          3,
          4
        ];
knoppix@Microknoppix:~$