my @a_items  = split("\t", $astring,$limit);
#store the remainder
    my $a_remainder = pop @a_items;

    my @b_items = split("\t", $bstring,$limit);
#discard the remainder
    pop @b_items;