use strict;
my %t; my $t;
my $k;
$t{$k}='toto';
$t='titi';
# print 'toto', not 'titi'
print $t{$k}, "\n";