The triple-argument for loop can be replaced with a more-readable foreach loop.

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