Select Code to Download

use warnings;
use strict;
...
{ my @bar = (9..12) };

print Dumper(peek_my(0));

$VAR1 = {
          '$foo' => \undef,
...
          '$foo' => \'lee',
          '$bar' => \'Bar'
        };