Kolakoski

Score: 75.14 (pass)

#!perl -l
$.=pop;push@*,($==$ARGV[$%%2])x($*[$%++]||$=)while$%<$.;print@*[0..$.-1]

Score: 76.14 (pass)

#!perl -l
$.=pop;push@*,($==$ARGV[$%%2])x($*[$%++]||$=)while$%<$.;print@*[0..$.-1]

Score: 80.13 (pass)

The new tiebreaker rules make for some seriously ugly variable name choices. ;-)

#!perl -l
$.=pop;@*=@%=@ARGV;@*=map{($%[$==!$=])x$_}@*,$==1while$.>=@*;print@*[0..$.-1]

Score: 82.25 (pass)

Ugly. I think I have a better way, but I wanted to just get on the board. :-)

#!perl -l
$e=pop;$i=$ARGV[$==!$=],push(@o,($i)x($o[$o++]||$i))while@o<$e;print@o[0..$e-1]