no strict 'refs'; my @groups = map $$_, 1 .. $#+; #### ['11', '30', undef] #### ['11', '30']