https://www.manu.co.in/how-to-get-array-length-in-perl/