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

# BEGIN MAIN
$, = "\n";
print &getFileList;
# END MAIN

sub getFileList {
   my @fileList = ();        # list for matching files
   find(\&findFilter, ".");  # populates the list
   return @fileList;

   sub findFilter {
      if ( /\.hhc$/ ) {  # only push matching filenames
         my $curDir = cwd;
         my $fileName = $curDir . $_;
         push @fileList, $fileName;
      }
      return;
   }
}