@liste = qw(lala tset foo bar yada);
my %wortliste;
@wortliste{@liste} = (0) x @liste;