######
else {
print EBSDET parser ($bai{$ocab}{d16}[$1]{text_full},
      (27- $bai{$ocab}{d16}[$1]{n2_offset}), 27,"\;",12);
}
  
######

##</code><code>##

push(@{ $pay[($#pay + 1)] }, $pay_aba, $pay_acct);

##</code><code>##

push @pay, [$pay_aba, $pay_acct];