$re_types = qr/(HEADING|TITLE|COMPND)/;
while (@data) {
    /^$re_types(.*)$/ ... !/^$1/ and push @{$type{$1}}, $2;
}