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