$ Just =$0;open JAPH, $Just;@ another =split /\s/, <JAPH>; $ Perl =" ";  $ hacker =","; 
sub Just{}; $hacker=join' ',@another[1,5,10,15],$hacker;
print Just.$Perl.$hacker,