# perl
use 5.010;
require Data::Dumper;

my $foo = [ qw( an array ) ];
my $bar = { a => "hash" };

say Data::Dumper->Dump( [ $foo, $bar ], [ 'foo', '*bar' ]);

^D
$foo = [
         'an',
         'array'
       ];
%bar = (
         'a' => 'hash'
       );