for(my $k=2; $k<521754; $k++)