# again stats... 
code/monks> ls -l input.list
-rw-r--r--    1 ericmc   users     2477055 2003-04-09 21:42 input.list
code/monks> wc -l input.list
 100202 input.list

# my way 
code/monks> time perl -n -a -e'END { print "$v\t$k\n" while($k,$v)=each%h} $h{(split(/\|/))[9]}++' input.list
16046   10.155.240.2
17948   10.155.240.3
66208   10.155.240.1
2.720u 0.020s 0:02.73 100.3%    0+0k 0+0io 339pf+0w

# your way.. 
code/monks> time perl -n -a -F\\\| -e'END { print "$v\t$k\n" while($k,$v)=each%h} $h{$F[9]}++' input.list
16046   10.155.240.2
17948   10.155.240.3
66208   10.155.240.1
5.610u 0.010s 0:05.62 100.0%    0+0k 0+0io 336pf+0w