Select Code to Download

my %elements;
foreach (@lines) {
    my ($key, @items);
...
    ($key, @items) = split(/,/, $_);
    push @{ $elements{$key} }, [ @items ];
}

foreach my $row (@{ $elements{HRD} }) {
    print $row->[2], "\n";        # remember, offset by one
}