open( $fh, '>', \$variable) || die ....

##</code><code>##

open(MEMORY, '>', \$var)
    or die "Can't open memory file: $!\n";
print MEMORY "foo!\n";