for my $x ( ... ) {
   ...

   if ( ??? ) {
      ...
   }

   ...
}

##</code><code>##

my @a = ...;

for my $i ( 0 .. $#a ) {
   my $x = $a[$i];

   ...

   if ( $i == $#a ) {
      ...
   }

   ...
}

##</code><code>##

my @a = ...;

for my $x (@a) {
   ...

   if ( \$x == \$a[-1] ) {
      ...
   }

   ...
}