Select Code to Download

my %email = {
  Category1 => { "Name One",  'some1@address.com },
...
                 "Name Three", 'some3@address.com },
  "Name One" => 'some1@address.com'
}

my %Email = {
  'Category1' => [ q(some1@address.com) ],
  'Category2' => [ q(some2@address.com some3@address.com) ],
  'Name One'  => [ q(some1@address.com) ]
};