open( $fh, '>', \$variable ) or ....