my $help;
my $test = \$help;
$help = 1;
if(defined($$test)){
      print "defined\n";
};