$Just = $0; open JAPH,$Just; @another = split /\s/, <JAPH>; $Perl = " ";  $hacker =",";sub Just {substr shift,1};
for($hack = 15; $hack > -1 ; $hack -= 5){$hacker = Just($another[$hack]) . $Perl . $hacker};$hacker =~ s/\s,/,/s;
print Just $Perl.$hacker,