$_=join'',map{"$_\n"}@l[0,1,1,2,3,3,4];