while (my $value = $it->next()) {
  # stuff
  if ($it->has_next()) {
     # for all but the last value
  }
}

##</code><code>##

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