use Data::Dumper;
my %hash;
my @liste = qw(bla tata uhha tata);
for( @liste ){ print Dumper \%hash; $hash{$_}++};

print Dumper \%hash;