foreach my $foo (@bar) {
    do_something($foo);
}

##</code><code>##

do_something($_) foreach @bar;

##</code><code>##

    for $blah (@blah) {
        # ...
        # ...
        # ...
        if($whatever) {
            last;
        }
        while($foo) {
            if(@bar) {
                # ...
                while($baz) {
                    # ...
                    # ...
                    # ...

                }
                if($whatever) {
                    next;
                }
                elsif($snafu) {
                    last;
                }
                else {
                    # ...
                }
                # ...
                # ...
            }
            # ...
        }
    }
    # ...
    # ...
}