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