use File::Slurp;
my $file_content = File::Slurp::read_file('file');
$file_content = reverse $file_content;
my $memory_file = \$file_content;
open my $memfh, '<', $memory_file or die "$!\n";

#...seek
#...read

close $memfh;