# Not an issue.. normal stuff
@a=qw(kvtu bopuifs qfsm ibdlfs);

# Shift each letter down one.
foreach(@a){
   $_=~tr/b-y/a-z/;
}

# Print out the JAPH
for(@a){
   print "@a\n";

   # Put the first element on the end of @a
   $a=shift(@a);
   push(@a,$a);
} # Later, rinse, repeat