faster ways than perl?

[email protected] (Richard Lee)
Newsgroups perl.beginners
Message-ID <[email protected]> 
I am running this command on over 2 gigs worth of lines....

which one should be faster?

cut -d'|' -f21 * | sort | uniq -c | sort


perl -F"\|"  -lane 'print $F[21]' * | sort | uniq -c | sort


or is there faster ways to do this on perl?
lmpx.com only provides a reader for public news (NNTP) servers. It is not affiliated with the servers or forums shown here and is not responsible for the content of articles, which is written by their respective authors.