my %rg;
for (sort { $a<=>$b } keys %numbers ) {
    push @{$rg{$_}}, $_;
}