$_->() # Execute closure for map{ my $y = $_; # Lexical for closure sub{ print $y } # Create closure } # Create a list by splitting q,, text into characters ( split qr,,, q,use re;$y=~tr/knXol/Japh/c;$, # ^... Place holder for line feed ) # Create a slice into the text list above. The contents # of [] are the indices of the characters that I want to # use in the text above, in the order I want to use them [ map -0141 + ord, # $_ - ord('a') q=uabldv;prlxfmdwfeoidxvzofe= =~ m~.~g # Splits into characters ];