https://jakerpomperada.com/two-dimensional-array-example-no-two-in-perl/