Welcome to the monastery. We would like to help you solve your problem, but you must make a good effort first. Read How do I post a question effectively?, and make use of the markup as described in Markup in the Monastery. When you have taken some time to attempt a solution, post a new question with code samples. We will be glad to try to help.
As a side note, the correct way to refer to the language is Perl. The intepreter is perl. PERL is acceptable on systems without lowercase characters. See What's the difference between "perl" and "Perl"?
print map{substr'hark, suPerJacent other l',$_,1}(11,7,6,16,5,1,15,18..23,8..10,24,17,0,12,13,3,14,2,4);
