Select Code to Download

my @okTypes    = qw(doc docx odt rtf);
my %allowedext = map {$_ => 1} @okTypes;
...
        join ', ', @okTypes;
    exit;
}