my $random_file = "/home/sites/site70/web/cgi-bin/i-merchant/admin/setup/ric.txt"; 

open (FILE, $random_file) or die $!;
my @LINES=<FILE>; 
close(FILE);

my $OTP = splice @LINES, rand @LINES, 1;
chomp $OTP;

open (FILENEW, ">$random_file") or die $!;
print FILENEW, @LINES;
close (FILENEW);

my $PPP = $OTP;