Исправленя, связанные с обновлением Perl (defined @array)