Kolakoski

Score: 70.24 (pass)

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

Score: 73.23 (pass)

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

Score: 73.25 (pass)

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

Score: 76.25 (pass)

#!perl -l
map$o.=($c=$ARGV[$_%2])x(substr($o,$_,1)||$c),0..500;print substr$o,0,pop