$\ = "\n";
print cnt() for 1..9;

sub cnt{ 
   state $c = 1;
   $c++;
}