if ( $drc::file1[$i] =~ m/^\s*\Module:/i ) {
    $moduleName = getModuleName ( $drc::file1[$i] ) ;
}
# could become
 $moduleName = getModuleName ( $item )      if ( $item =~ m/^\s*\Module:/i );