open my $fh, $rfile, 'r';