Moder Perl Example

Suppose you’re given the following arrays containing participant information:
@firstnames = ("Sarah", "Jareth", "Ludo", "Hoggle");
@lastnames = ("Williams", "King", "Beast", "Dwarf");
@ages = (15, 39, 33, 43);
@nativelanguages = ("English", "English", "Romanian", "English");
@performancescores = (85, 99, 35, 75);
Write a script that calculates the average performance score and prints out the mem-
bers of the groups meeting the following criteria (each criterion should produce one
group, rather than identifying a group that meets all four criteria):
(a) native language is English
(b) age is greater than 20
(c) age is greater than 20 and native language is English
(d) performance score is greater than 70