@liste = qw(lala tset foo bar yada);
@wortliste{@keys} = split '', 0 x ( $#keys + 1 );