Select Code to Download

$VAR1 = {
          'outdoor' => {
...
                          'desc' => ''
                        },
}

for my $list ( keys %lists ) {
    $lists{$list}{desc} = check_desc $lists{$list}{desc};
    $list = "[mailto:$list\@example.com $list]";
}