print
   map { qq{@{ [ join q{ }, map { ucfirst } @$_ ] }\n} }
   map { [ split m{_} ] }
   @names;