The pattern you need is

my $last;
while (defined($_ = next())) {
   if (!defined($last) || different($_, $last)) {
      new_group();
      $last = $_;
   } else {
      same_group();
   }
}
[download]

Replace next, different, new_group and same_group with something appropriate to your problem. Some problems require more than one $last.