my ( $moduleName, $netName, @gateInst, $gate, $netCap,
         $violation, @maxTrans, $worstTrans, $line );

##</code><code>##

my $rpt = $drc::flag ? \%drc::rpt1 : \%drc::rpt2;
$rpt->{$moduleName}{$netName}{$gate}{"Capacitance"} = $violation;

##</code><code>##

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