You can't just invent stuff and expect it to work! The code as posted doesn't compile for a couple of reasons:

• Neither $name nor $extension are declared
• $allowedext{$extension} implies there is a %allowedext variable, but there is none such.

I'd clean the code up by doing something like:

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

if (!$allowedext{lc $extension}) {
    print
        "Filetype '$extension' not allowed. File extension must be one
+ of ",
        join ', ', @okTypes;
    exit;
}
[download]