c:\@Work\Perl\monks>perl -wMstrict -le
"for my $str (qw(one two three)) {
   print qq{in for loop: '$str'};
   END { print 'END block ONE';   }
   END { print 'END block TWO';   }
   END { print 'END block THREE'; }
   }
"
in for loop: 'one'
in for loop: 'two'
in for loop: 'three'
END block THREE
END block TWO
END block ONE