Kolakoski

Score: 64.16 (pass)

#!perl -l
print map{push@@,($%=$ARGV[--$_%2])x($@=$@[$_]||$%);$@}1..pop

Score: 64.25 (pass)

#!perl -l
print map{push@c,($q=$ARGV[--$_%2])x($x=$c[$_]||$q);$x}1..pop

Score: 64.25 (pass)

#!perl -l
print map{push@c,($q=$ARGV[--$_%2])x($x=$c[$_]||$q);$x}1..pop

Score: 65.26 (pass)

#!perl -l
print map{push@c,($q=$ARGV[$_%2])x($x=$c[$_]||$q);$x}0..-1+pop

Score: 68.29 (pass)

#!perl -l
$l=pop;map{push@c,($_)x($c[$b++]||$_)}(@ARGV)x$l;print@c[0..$l-1]

Score: 70.26 (pass)

#!perl -l
for(0..500){push@c,($q=$ARGV[$_%2])x($c[$_]||$q)}print@c[0..-1+pop]

Score: 70.26 (pass)

#!perl -l
for(0..500){push@c,($q=$ARGV[$_%2])x($c[$_]||$q)}print@c[0..-1+pop]