(намаявшись с передачей хэш-таблицы параметром по ссылке)
Прототипы в PERL выглядят непристойно. Смотришь на sub init_params ($@%\@) и гадаешь, типы данных это или отношение автора к функции.