my @friends = map { (split /\./)[1] } <DATA>;
chomp @friends;