while($n<@C){$_=$C[$n++]};

##</code><code>##

$_=$C[$n++]while$n<@C;