for (0..$#array){
    if ($_ % 20 == 19){
        print OUT "$array[$_]\n";
    }
    else{
        print OUT "$array[$_] ";
    }    
}

##</code><code>##

for (@array){
    if (++$cnt % 20 == 0){
        print OUT "$_\n";
    }
    else{
        print OUT "$_ ";
    }    
}