Нет не сразу, а именно через секунду (пройдет как минимум одна интерация).
не через секунду, а через одну итерацию
у меня за 5 сек, там несколько тысяч набежало.
Для видимости поставьте счетчик:
my $time=time();
while (1){
last if (time-$time)>0;
$i++;
}
print "Кол-во итераций: $i";