my @liste=('bla','foo','bar');
my %hash=();

for my $wert (@liste)
{
  $hash{$wert}=1;
}