for (rikeysort {/^\w+\s+(\d+)/; $2} <INPF>) {

##</code><code>##

Can't call method "rikeysort" on an undefined value at ./x.pl line 401, <INPF> line 12.