foreach my $filename (@prfiles) {
    my ( $total_recs, $counter_recs, $previous_rec_ssn, $file_count, $file_size_met );

    open ( my $INFILE1, '<', $filename ) or die "Cannot open $filename: $!";
    print "Now processing: $filename\n";
     
    while ( <$INFILE1> ) {
       if ( not $file_size_met ) {
           ++$file_count;
           my $mod_filename = $filename . $file_count;
           print "Writing output to: $mod_filename\n\n";
           
           open ( my $OUTFILE1, '>>' $mod_filename ) or die( 201 );
           
           while ( $counter_recs < 50000 ) {
               print $OUTFILE1 $_;
               ++$total_recs;
               ++$counter_recs;
           }
           
           print "$total_recs records have been processed\n";
           $counter_recs=0;
        }

        my $actual_size = (stat($mod_filename))[7];
        ++$file_size_met if $actual_size >= $outsize;
        print "Current file size is $actual_size bytes.\n";