map { my @fields = split /,/; [ $_, $field[1] ] }