open (RF,"<:raw:scalar", $$record{data}) or die "Couldn't open memory file: $!";
  
        while(my $line = <RF>){

print "\n in while \n";
        }

close(RF);