my @pairs = split "\n", $pair;