sub generate {
   my $AnaJAPH = uc($_[0]);
   my $JAPH    = uc("Just another Perl hacker,");
   print "$AnaJAPH\n";
   my @Transform;
   for my $i (0..length($JAPH)-1) {
      my $k = index($AnaJAPH, substr($JAPH,$i,1));
      $Transform[$i] = chr(64+$k);
      substr($AnaJAPH,$k,1) = '.';
   }
   my $ret = lc("@Transform");
   $ret =~ s/ //g;
   return $ret;
}