my %v;   # my hash for user variables
$v{Sam}++; 
# or:
my $name = 'Sam';
$v{$name}++;

##</code><code>##

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