
Приветствую всех... Вот тружусь над таким простым кодом, а что то не работает

#!/usr/bin/perl -w
$| = 1;
open(F, '<num.txt') || die $!;
my @some = <F>;
close F;
my $now;
my $i =1;
$i++;
if(!$now){ $now = shift(@some);
chomp($now);
print"NUM $now\n";}
if($i>3)
{
$now = shift(@some);
chomp($now);
print"NUM $now\n";
$i=0;
}
Т.е., 2 раза должно выпасть число 1, а потом 2, потом 3 и т.п. А почему то не работает, как надо.
Содержимое файла num.txt
Помогите пожалуйста, умные головы

. Заранее спасибо большое за помощь...