use Tie::File;
tie my @array, 'Tie::File', $rfile or die;