Select Code to Download

use Data::Dumper;

...
print Dumper(\%foo);
see_args( @foo{qw(BAR BAZ)} );
print Dumper(\%foo);

$VAR1 = {
          'BAZ' => 1
...
          'BAZ' => 1,
          'BAR' => undef
        };