Kolakoski

Score: 66.15 (pass)

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

Score: 70.17 (pass)

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

Score: 70.20 (pass)

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

Score: 70.20 (pass)

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

Score: 71.18 (pass)

#!perl
print+(map{(@_=(@_,($ARGV[$|--])x($_[--$_]||$ARGV[$_])))[$_]}1..pop),$/

Score: 71.20 (pass)

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

Score: 72.19 (pass)

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

Score: 75.19 (pass)

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