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