How to find out processwise open files ??? (in AIX) (in HPUX)

lsof | perl -lane '$x{"$F[0]:$F[1]"}++; END { print "$x{$_}\t$_" for sort {$x{$a}<=>$x{$b}} keys %x}'| sort -rn +0 | head -25