https://dropcode.ru/thread/kak-peredat-massiv-v-funktsiiu-na-perl