Perl

[Song]

Вызываю sub:

 

$query = строка
@words = массив заполнен
%words_array = хэш массива, не определён
$words_count = число, определено
collect_data($query, @words_count, %words_array, $words_count);

 

в самой collect_data:

sub collect_data {
	my ($query, @words, %words_array, $words_count) = shift @_;

По идее должно всё заполнится, однако,

в $query - есть строка

@words - empty

и всё остальное тоже empty. В чём я ошибаюсь?

[xRay]

вот тут расписано

http://www.computerbooks.ru/books/Programm...l/11/Index4.htm

[Song]

Спасибо, но ничё не получается