#!/usr/bin/perl -w

*yellow
=sub#marine?
{$what #yellow
=sub#marine?
{q/
rekcahlreprehtonatsuj/}
;$/
=$what
#is this 
->("button")
#good for?
;#Ringo,
%whereis=#the
map{p("lease?")
=>$_}reverse(
#Don't
split//,(
join#us!
"",$/));print
$whereis#John, Ringo?
{$_}for sort{$a<=>$b}
#Where are the
keys#,
%whereis}#the
;sub#marine, Ringo???
p{$p++}
#Ok, let's sing:
#We all live in a
yellow("submarine!");