my $ext = {};
for (keys %$mime) {
    my $case = { description => $_,
                 icon => $mime->{$_}{icon}, };
    my @exts = @{$mime->{$_}{ext}};
    @{$ext}{@exts} = ($case) x @exts;
}