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