Нет не сразу, а именно через секунду (пройдет как минимум одна интерация). 
не через секунду, а через одну итерацию 

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