use Data::Dumper;
 
#...

$boo = [ 1, [], "abcd", \*foo,
         {1 => 'a', 023 => 'b', 0x45 => 'c'},
         \\"p\q\'r", $foo, $fuz];
 
# ...

$bar = eval(Dumper($boo));
print($@) if $@;
print Dumper($boo), Dumper($bar);