https://devhubby.com/thread/how-to-check-if-a-hash-is-empty-in-perl