...
my $count = 0;
foreach my $rec ( @{$names} ) {
    $count++;
     sleep(10) if $count / 10 == 100;
    ...
 }
...