>perl -wMstrict -le
"use Data::Dumper;
 my @ra = (1, 2, { 3 => 'three' } );
 my $du = Dumper \@ra;
 print qq{**$du**};
"
**$VAR1 = [
          1,
          2,
          {
            '3' => 'three'
          }
        ];
**