Perl, нужна консультация — что делает приведенный код?
В этой строке заполняется хэш с названием %seen. 
В качестве ключей этого хеша подставляются элементы массива @spisok1, а в качестве значений пустота. 
И если эту строку заменить на цикл, то получится:for my $element (@spisok1) { 
    $seen{$element} = undef;
}
Эта запись будет эквивалентна вашей строке.
Добавлю, что такая конструкция называется "срез" хэша. Также срез можно применять к массивам (спискам).
Обратите внимание на сигил - он при работе со срезом указывает на массив - @