my $prev; #Previous element
for my $elem ( @array ) {
  # Verify $prev is NON-empty
  if ($prev){
     #Now you can compare $prev and $elem
     # and do whatever
  } 
  $prev=$elem; # Prepare for next round of loop
}