>perl -e"BEGIN{keys %h=2**23}" 
-nE"$h{$_->[0]}=$_->[1] for [split];print qq[\r$.]" junk.dat
11000000