#!/usr/bin/perl -w @a=qw(kvtu bopuifs qfsm ibdlfs );foreach(@a){$_=~tr/b-y/a-z/; }for(@a){print"@a\n";$a=shift( @a);push(@a,$a);} [download]
In reply to First attempt. by Superbabeteam