#!/usr/bin/perl

print "foreach...\n";
foreach (Foo->new) {}
print "after foreach\n";
print "while...\n";
while (my $object = Foo->new && 0) {}
print "after while\n";
print "for...\n";
for (my $object = Foo->new; 1 < 0; ) {}
print "after for\n";

package Foo;
sub new { my $self = bless {},shift; print "CREATED $self\n"; $self }
sub DESTROY { print "DESTROYED $_[0]\n" }

__END__

bester:~/tmp> monk.pl
foreach...
CREATED Foo=HASH(0x22494)
DESTROYED Foo=HASH(0x22494)
after foreach
while...
CREATED Foo=HASH(0x305f0)
DESTROYED Foo=HASH(0x305f0)
after while
for...
CREATED Foo=HASH(0x22494)
after for
DESTROYED Foo=HASH(0x22494)