# lots of baby perl...
@my_list = 1, 2, 3;
# lots of baby perl...

##</code><code>##

for ( my $i = 1; $i <= 10; $i++ ) {
  ...
}

for ( 1 .. 10 ) {
  ...
}

##</code><code>##

if( ! open LOG, ">>logfile) {
  die "Cannot create logfile: $!";
}