Select Code to Download

    push @{$H{$1}{$3}{head}}, $2;
    push @{$H{$1}{$3}{tail}}, grep{$_} split ':', $4;

foreach my $k1 (sort {$a <=> $b} keys %H) {
    print "$k1\n";
...
        }
    }
}