https://dropcode.ru/thread/kak-uznat-razmer-massiva-v-perl