c_1_mm
c_2_mm
c_3_mm
c_4_mm

##</code><code>##

1
2
3
4
5
6
7
8
9
0

##</code><code>##

c_1_mm_1 c_2_mm_1 c_3_mm_1 c_4_mm_1
c_1_mm_2 c_2_mm_2 c_3_mm_2 c_4_mm_2
c_1_mm_3 c_2_mm_3 c_3_mm_3 c_4_mm_3
c_1_mm_4 c_2_mm_4 c_3_mm_4 c_4_mm_4
c_1_mm_5 c_2_mm_5 c_3_mm_5 c_4_mm_5
c_1_mm_6 c_2_mm_6 c_3_mm_6 c_4_mm_6
c_1_mm_7 c_2_mm_7 c_3_mm_7 c_4_mm_7
c_1_mm_8 c_2_mm_8 c_3_mm_8 c_4_mm_8
c_1_mm_9 c_2_mm_9 c_3_mm_9 c_4_mm_9
c_1_mm_0 c_2_mm_0 c_3_mm_0 c_4_mm_0

##</code><code>##

#!/usr/bin/perl
use strict;
use warnings;

my $cell_list = $ARGV[0]; # input cell_list
my $pvt_list = $ARGV[1]; # input pvt_list

if ($#ARGV!=1)
{
   print "USAGE :: perl max_tran_update.pl <<cell_list>> <<PVT_LIST>> \n\n" ;
   exit(1);   
}


open (CFILE,"<","$cell_list") || die "Can not open cell_list";
open (PFILE,"<","$pvt_list") || die "Can not open pvt_list";


my @cell_file = <CFILE>;
my @pvt_file = <PFILE>;