$found = 0;
$hash{1} = '*.doc';
$hash{2} = '*.xls';
$hash{3} = '*.ppt';
map {
     $found = 1 if $file =~ /$_/;
} values(%hash);