$t = "SPACE";
printf "%s\n", $t = chop($t) . $t for 1..length $t;