Help for this page

Select Code to Download

Select or download this

while ( <DATA2> ) {
    chomp;
    my %record;
    @record{qw(ID COMP TYPE DOC REF)} = split;
    pushd @data2, \%record;
}

Select or download this
@ids = map { $_->{'ID'} } @data2;