Cantor

Score: 43.15 (pass)

#!perl -l
$.='-';$..=$".$.,$"x=3for 1..pop;print$.

Score: 49.17 (pass)

#!perl -l
$.='-';$#l=-1+pop;$..=$".$.,$"x=3for@l;print$.

Score: 51.15 (pass)

#!perl -l
$.='-';$,=pop;$..=$".$.,$"x=3for 0..$,-1;print$.

Score: 54.18 (pass)

#!perl -l
$.='-';$,=pop;$..=($"x 3**$_).$.for 0..$,-1;print$.

Score: 55.20 (pass)

#!perl -l
$_='-';$l=pop;$_=$_.($"x3**$,++).$_ while$,<$l;print

Score: 58.21 (pass)

#!perl -l
$_='-';$l=pop;$_=$_.(' 'x length).$_ while$,++<$l;print