my @a = ...;

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

   ...

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

   ...
}