Select Code to Download

use warnings;
use strict;
...
foreach my $item (sort keys %groups) {
        print "$groups{$item}\n";
}

21 => rg1000
218 => rg1003
22 => rg1003
221 => rg1000