#!/usr/bin/perl

my $in = $ARGV[0];

for (my  $i = 0; $i < length($in); $i++){
	print $in, " $i\n";
	$in = substr($in, 1, length($in) - 1) . substr($in, 0, 1)
}
