Perl：比较2个数组的散列与另一个数组

I have written the code below in Perl but it's not giving the desirable output. I am dealing with the comparison between one array and two hash of arrays.I have written the code below in Perl but it's