Select Code to Download

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

$found = 0;
$hash{1} = '*.doc';
...
     $string .= $_ . "|";
}
$found = 1 if $file =~ /$string/;