https://www.manu.co.in/in_array-function-in-perl/