#!/usr/bin/perl
use strict;
use warnings;

foreach (1..5) {
    print "In for stmt\n";
    {
        next;
    }
    print "end of for stmt\n";
}
print "done.\n";