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