Select Code to Download

use strict;
use warnings;
...
for my $group (@T{ @ID }) {             # this is a hash slice!
    print OUT for @$group;
}