There's no mention of eval, which is probably the most overused construct in Japh creation. You suggest using $p instead of $payroll and $a instead of $atom. Why not use $a instead of $payroll and $p instead of $atom? Declare variables like $print which contains the text 'substr(' and $substr which contains the text 'print', which are used in a eval statment which uses their contents as part of the data. Make use of \t instead of spaces and \x33 instead of bangs. Declare seemingly important variables which contain the word 'Just' or 'Perl' and then never use them again.

Use your imagination.