Select Code to Download

use Data::Dumper ();

...
my $d = Data::Dumper->new([ $bar ], [ '$bar' ]);
$d->Seen({ '$foo' => $foo });
print $d->Dump();

$bar = [
         [
...
         ],
         $foo
       ];