my @array = map [extract_data_from_line $_], <IN>;