$,=$/,print+zero,@1=(one,two,three,four,five,@2=(six,seven,eight,nine)),ten,eleven,twelve,(map{s/t$//;$_.teen}@3=(thir,four,fif,@2)),(map{$s=s/u//r.ty,map"$s $_",@1}twen,@3),'one hundred'