# File stats ;)
code/monks> wc -l input.list
   5202 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
846     10.155.240.2
943     10.155.240.3
3413    10.155.240.1
0.160u 0.000s 0:00.15 106.6%    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
846     10.155.240.2
943     10.155.240.3
3413    10.155.240.1
0.310u 0.000s 0:00.30 103.3%    0+0k 0+0io 336pf+0w