for (1..6000){ print "$_ " ; print "\n" if /00$/; select (undef,undef,undef,.0001); }