my %newhash = map { my $list=$_;
                     "\[mailto:$list\@example.com $list]" => 
                      { map { $_ => $_ eq 'desc' ? check_desc $lists{$list}{desc}
                                                 : $lists{$list}{$_}
                      } keys %{$lists{$list}
                  } keys %lists;