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