Number 8

Write a Code (and explain your code) in perl programming language I want to extract and print everything from "start to the first end" encountered from following example code. Please finish following program by replacing??? with proper code Write a Code (and explain your code) in ML Programming Language Define a function take_first:('a * 'b) list rightarrow 'a list which takes in input list of pairs and gives back the list consisting of the first elements only. Examples take_first [] = [] take_first [(1, 2), (1, 3)]=[1, 1] take_first[(1, "a"), (2, "b"), (3, "c")]=[1, 2, 3] take_first [([], "a"), ([1], "b"), ([1, 2], "c")]=[[], [1], [1, 2]]