Kolakoski

Score: 74.22 (pass)

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

Score: 77.20 (pass)

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

Score: 78.15 (pass)

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