My first^™ obfu.

Actualy prints the alphabet. _MY_ alphabet that is... >:)

$/="";$_=<DATA>;
sub up{return
("sub ".uc(shift
()))};s/\n//gim;
@_=split/\;/;for
(0..$#_){$_[$_]=~ 
s/^(\w{1}\{)/&up
($1)/e;$_[$_]=~
s/japh/print/;
eval("$_[$_]");} 

&A,&L,&P,&H,&A,&B,&E,&T; 

__DATA__ 
a{japh"s
"};l{jap
h"i"};p{
japh"n"}
;h{japh"
i"};b{ja
ph"t"};e
{japh"e"
};t{japh
"r\n\n"}
[download]

A righthanded-lefthand....
"Field experience is something you don't get until just after you need it."