Select Code to Download

  $i = 'A'; # the class label
  for $n (@temp) {
    next if defined $arrangements{$n}; # already classified it.
...
    &ClassReunion( $i, \@classmates );
    $i++;
  }

sub M2 {
  my %temp;
  @temp{(1..@_)} = @_;
  %temp = reverse %temp;
  return join(',', @temp{(1..@_)});
}