open(my $fh, '<', \$var);