Select Code to Download

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