Kolakoski

Score: 61.11 (pass)

#!perl
$%[$_]=$ARGV[$"],$*||=$%[++$.],$"^=!--$*for 1..pop;print@%,$/

Score: 62.23 (pass)

#!perl -l
map{@_[$_]=$ARGV[$x];$c||=$_[++$o];$x^=!--$c}1..pop;print@_

Score: 93.30 (pass)

#!perl -l
($a,$b,$n)=@ARGV;@c=($a)x$a;push@c,(($a,$b)[$c^=1])x(@c,$b)[$_]for 1..$n;print@c[0..$n-1];