use Devel::Peek;

my @array = (1,2,3);
Dump \@array;

print "====\n";

foreach (@array) {
	Dump $_;
	print "----\n";
}