You can simplify the problem by inverting the hash:

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

That takes care of finding all the keys that match an rgnnnn value. Now all you need to do is loop over the numbers for each rg key, deciding what to print.