no strict 'refs';
  my @groups = map $$_, 1 .. $#+;