while (@array) {
  my $value  = shift @array;
  # stuff
  if (@array) {
     # for all but the last value
  }
}