--- a/upstream_hash.t	Thu May 12 18:03:51 2016 +0300
+++ b/upstream_hash.t	Fri May 13 14:46:07 2016 +0300
@@ -218,7 +218,7 @@
 	my ($uri, $count) = @_;
 	my %ports;
 
-	for my $i (1 .. $count) {
+	for (1 .. $count) {
 		if (http_get($uri) =~ /X-Port: (\d+)/) {
 			$ports{$1} = 0 unless defined $ports{$1};
 			$ports{$1}++;