Kolakoski

Score: 68.24 (pass)

#!perl
push@_,($"=$ARGV[$_&1])x($_[$_]||$")for+0..500;$#_=-1+pop;print@_,$/

Score: 68.26 (pass)

#!perl
push@x,($a=$ARGV[$_&1])x($x[$_]||$a)for+0..500;$#x=-1+pop;print@x,$/

Score: 70.26 (pass)

#!perl
push@x,($a=$ARGV[$b&1])x($x[$b++]||$a)for+0..500;$#x=-1+pop;print@x,$/