THIS IS PERL

Write a script to declare two list(array) variables x and y of length 3 each, initialize them to using numbers, compute a list that is the sum of these lists, and print the middle three elements of the resulting list. 5. Write a script to declare a hash variable x which contains 3 values and 3 keys, initialize values to names and keys to numbers. 6. Write a script using ifelsifelse to compare three words entered by the user and compare if any two match. 7. Write a script using the while loop construct that generates 100 randomly generated numbers between 0 and 99 and writes them out in a user specified filename. 8. Write a subroutine to generate two random numbers between -10 and 10 and compute sum of their squares.