names.rb

names = %w(
  Andrew\ Bloom
  Christopher\ Castro
  Diego\ Lopez
  Steven\ Targos
  Matt\ Milkowski
  Christine\ Livingood
  Marta\ Contino
)

# count all vowels
results = names.inject({}) do |hsh, name|
  hsh[name] = name.scan(/[aeiouy]|[AEIOUY]/).length
  hsh
end

# extract the winner(s) -- most vowels
max = results.values.max
winners = results.inject([]) do |arr, (key, value)|
  arr << key if value == max
  arr
end

puts results.inspect
puts
puts winners.inspect