$a[$|--].=abs.$/for-<>..-1;print@a