for ( 1 .. $size ) {
    $seqR .= $nucsint(rand(4));
}