my @lastnames = map { (split ",")[1] } split "\n", $scalar;