$init{$_} = join '', ($_ =~ /\b\w/g) for @names;