18 < shift @attrs ;
35 > $subres{ID} = $attrs->[0] ;
36 < for( my $i = 0 ; $i < @{$attrs->[$j]} ; ++$i ) {
36 > for( my $i = 1 ; $i < @{$attrs->[$j]} ; ++$i ) {
38 < ++$subres{ $data->[$i]}  ;  
38 > ++$subres{ $data->[$i-1]}  ;