while(my $pline=<PRFILE>) {
    chomp $pline;
    $parrecord = $pline;
    my @parfields = split();
    ...
}