It looks like you have your problem solved but you may be interested in an alternative solution:

use strict;
use File::Find::Rule;
use Cwd;

$, = "\n";
print File::Find::Rule->file()->name( '*.hhc' )->in( cwd );
[download]