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;
}