my $var = \$sam; $$var++; # increments $sam