[Perl] Einfacher JAPH

[code bug]

Moin.
Ich habe mich auf Wikipedia ein bisschen über JAPH´s und Obfuscating-Contests informiert. Da ich gerade zum zweiten mal Perl lerne, habe ich mal ein kleinen Code geschrieben. Da ich noch relativer Anfänger bin gebt mir bitte Tipps bezüglich des Codes und ob man etwas verbessern könnte

#!/usr/bin/perl#lookinheavyforwardisgood!
sub gimme{$s[0]="r";$s[1+1-1]="e";$s[2]="k";$s[3]="c";$s[2*2-0]="a";$s[5]="H";$s[2*2+2] =" ";$s[7]= 
"l";$s[8]="r";$s[9]= "e";	 $xv446762374_78643rghjhgg__XX ="6543763\\\\\\&\%\$\§-X532";$s[10]        ="P"    ;$s[11] = " ";$s[12] = 
"r";$s[13] = "e";$s[(((14/2)-4)*5)-1] = "h";$s[15] = "t";$s[16] = "o";$s[17] = "n";$s[18] ="a";#BOAHjust6636WAiT
if($xv446762374_78643rghjhgg__XX!="X-X"){$s[19] =" ";$s[((10+10)/2)*2] = "t";
$s[21] ="s";$xxba7V_6645="bbb55xv!/hj";$s[22] = "u";$s[23] = "J";
$gimmeeverything=reverse@s;print"$gimmeeverything\n";}}&gimme###

cb