my @a = ...;

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

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

   ...
}