This is perl, version 5.005_03 built for aix
AIX pbsxdr00041 2 5 000258CA4C00
>perl   sort.pudge     h2z.prod.400987aa  > h2z.prod1a  
Use of uninitialized value at sort.pudge line 266.