while( @data ) {
    /^HEADING/ ... !/^HEADING/ and push @headings, $_;
    /^TITLE/   ... !/^TITLE/   and push @titles,   $_;
    /^COMPND/  ... !/^COMPND/  and push @cmpnds,   $_;
}