my @foo;
    my %bar;

##</code><code>##

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

##</code><code>##

#!/usr/bin/perl

use strict;
use warnings 'all';
use Devel::Peek;

my @foo_1;
my @foo_2 = ();
my %bar_1;
my %bar_2 = ();

print STDERR "\@foo_1:\n";
Dump (\@foo_1);
print STDERR "\@foo_2:\n";
Dump (\@foo_2);
print STDERR "\%bar_1:\n";
Dump (\%bar_1);
print STDERR "\%bar_2:\n";
Dump (\%bar_2);
__END__

##</code><code>##

my $yuk;

##</code><code>##

my $yuk = {};

##</code><code>##

#!/usr/bin/perl

use strict; 
use warnings 'all'; 
use Devel::Peek;
  
my $yuk_1;
my $yuk_2 = {};
    
print STDERR "\$yuk_1:\n";
Dump ($yuk_1); 
print STDERR "\$yuk_2:\n";
Dump ($yuk_2);