#!/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__