Perl - ошибка "Use of qw(...) as parentheses is deprecated at..."