open PRIMES, $primefile;
while(<PRIMES>) {
push (@parray, $_);
}
close PRIMES;

# could be 
open PRIMES, $primefile;
@parray = <PRIMES>;
close PRIMES;