>perl -MList::Util=shuffle 
-nE"chomp(@i=shuffle<>); say +(split':')[0] for @i[0..1e3];last" ips.txt 
|874413.pl >nul
1001 lookups (1001 found) in 0.456 seconds (0.000455/sec)