Select Code to Download

#!perl -l

...

print map { ucfirst reverse } 
      map { grep  { defined } values %$_ } $ja,$ph;