Help for this page

Select Code to Download

Select or download this

my $last;
while (defined($_ = next())) {
...
      same_group();
   }
}