sub parse_file { 
   my %caps = {}  
   while (<FILE>) { $caps->{$net} = val ; } 
   return $caps  ; 
}

my $i = 0 ; 
foreach $file (@inputs) { 
   open (FILE, "$file") ; 
 
   %{$CAPS[$i]} = parse_file() ;  
   $i++ 
  
   close (FILE); 
}

my @inputs = (a list of files); 
my %signals; 
foreach my $file (@inputs) {  
   open (my $IN, "<", $file) or warn "Can't open file $file: $!"; 
   while(<$IN>){ 
      chomp; 
      # parse data here into $key (signal) and $val (capacitance) 
      push @{$signals{$key}},$val; 
   }   
   close($IN);  
}

   FILE  | A   | B   | C   | 
---------|-----|-----|-----| 
signal a | val | val | val | 
signal b | val | val | val | 
signal c | val | val | val | 
etc.

my @CAP_VAL = () ; 
 
my $num = 0 ; 
foreach my $file (@input) { 
   print "RC File $num: $file\n" ; 
   if ($file =~ /\.gz/) { 
      open (FILE, "gunzip -c $file |") || die "can't open file $file !!\n" ; 
   } elsif ($file =~ /\.bz2/) {    
      open (FILE, "bunzip2 -c $file |") || die "can't open file $file !!\n" ; 
   } else {    
      open (FILE, "$file") || die "can't open file $file !!\n" ; 
   } 
 
   $CAP_VAL[$num] = parse_spef_file() if ($file =~ /\.spef/) ; 
   $num++ ; 
 
   close FILE ; 
}    
 
# test values in hash... 
print "$CAP_VAL[0]->{fft_256_c_2_r_n207}\n" ; 
print "$CAP_VAL[1]->{fft_256_c_2_r_n207}\n" ; 
 
sub parse_spef_file { 
 
   my %cap       = {} ; 
   my %f1map     = {} ; 
 
   my $nmap      = 0  ; 
   my $end       = 0  ; 
   my $total_net = 0  ; 
 
   my $net       = "" ; 
 
   while (my $line = <FILE>) { 
      if($line =~ /\*NAME_MAP/) { 
         $nmap = 1 ; 
         next ; 
      } 
      if($line =~ /\*PORTS/) { 
         $nmap = 0 ; 
         next ; 
      } 
      if($nmap == 1) { 
         chop $line ; 
         next if($line =~ /^\s+$/) ; 
         my ($key, $value) = split /\s+/, $line ; 
         $value =~ s/\\//g ; 
         $f1map{$key} = $value ; 
      } 
      if($line =~ /\*D_NET/) { 
         my ($front, $key, $end) = split /\s+/, $line ; 
          $net = $f1map{$key}; 
          if($res) { 
            $cap{$net}= proc_sum_resistance() ; 
          } else { 
            if ($end =~ /\d+[fF]/) { 
               $end =~ s/[fF]//g ; 
               $cap->{$net} = $end*1e-3 ; #convert fF to pF 
            } elsif ($end=~ /\de-(\d+)/) { 
               my $expvalue = eval(10 **(- $1)) ; 
               $end =~ s/e-\d+// ; 
               $cap->{$net} = $end * $expvalue * (1e-3) ; #convert SCI to pF 
            } elsif ($end =~ /\d+[pF]/) { 
               $end =~ s/[pF]//g ; #cap value in pF 
               $cap->{$net} = $end ; # no need to convert 
            } else {  
               $end =~ s/[pPfF]//g ; #if units of pF or no units 
               $cap->{$net} = $end*1e-3 ; #cap value in pF 
            } 
         } 
         $total_net++ ; 
      } 
   } 
 
   print "Total Nets: $total_net\n" ; 
 
   return $cap ; 
}

my %cap = {};

$cap{$net}= proc_sum_resistance() ;

$cap->{$net} = $end*1e-3 ; #convert fF to pF