My first obfuscation...

$.=a;sub _'TIESCALAR{$;=shift
;bless[shift,shift]=>$;};$..=
b;tie$a=>_=>i=>1 ;$..=c;tie$b
=>_=>t=>1;$..=c;$z=sub{for( 1
..($_[0][1])){$_[0][0]++};$_[
0][0]};$..='m';tie$c=>_=>r=>1
;$..=d;tie$d=> _=> a=>;$..=e;
tie$e=>_=>m=>1;$..=ef;tie$f=>
_=>s=>1; *_::FETCH= $z;$..=g;
tie$g=>_=>a=>7;$..=h;@.=split
//,$.;$m=chr(2**5);push@.,qw(
i m e);tie$h=>_=>b=>3;tie$i=>
_=>r=>;push@.,j,i;tie$j=>_=>e
=>;push@.,k,m=> h;tie$k=>_=>l
=>;push@.,d,l,a;tie$l=>_=>a=>
2;push@.,l,i;for(@.){print${$_}};
[download]

Osfameron