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

##</code><code>##

@ids = map { $_->{'ID'} } @data2;