my $data = 'Hello World';
open my $fh, '>', \$data
    or die "Couldn't open \$data as a file";
seek $fh, 6;
print <$fh>