Select Code to Download

my $var;
@{$var}{ qw( one two red blue )} = ('fish') x 4;

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