my @rowa = $rowa =~ /.{1,10}/g;
my @rowb = $rowb =~ /.{1,10}/g;

for my $i (max(0+@rowa, 0+@rowb)) {
    ...
}