Oh my goodness, I am so stupid. I should just parse the header looking for which column is PPID and use that.

 ps -l -p $$ | grep PPID | perl -ane '$i=0;
while($i<@F && $F[$i] ne q(PPID)){$i++};
print $i if $i < @F'
[download]