Select Code to Download

    my @foo;
    my %bar;

    my @foo = ();
    my %bar = ();

#!/usr/bin/perl

...
print STDERR "\%bar_2:\n";
Dump (\%bar_2);
__END__

my $yuk;

my $yuk = {};

#!/usr/bin/perl

...
Dump ($yuk_1); 
print STDERR "\$yuk_2:\n";
Dump ($yuk_2);