ausdny3-01.bsn.savvis.net:,sid:s213882:ausdny3_01-2:0:152,access,ATM-VC,6,1,0,152,Up
ausdny3-01.bsn.savvis.net:,sid:zzwenz:ausdny3_01-2:0:132,access,ATM-VC,6,1,0,132,Up
ausdny3-01.bsn.savvis.net:,sid:s224384:ausdny3_01-2:0:172,access,ATM-VC,6,1,0,172,Up
ausdny3-01.bsn.savvis.net:,sid:taicap:ausdny3_01-2:0:129,access,ATM-VC,6,1,0,129,Up

##</code><code>##

savvis:ausdny3_01.bsn:usstls6_01_mgmt-pri.bln:00:bsntrunk,09.01:ausdny3_01.bsn_06.01,ausdny3_01.bsn,6,1,0,100
savvis:ausdny3_01.bsn:sgsing1_01.bsn:14:bsntrunk,09.01:ausdny3_01.bsn_06.01,ausdny3_01.bsn,6,1,0,41
savvis:ausdny3_01.bsn:sgsing1_01.bsn:20:bsntrunk,09.01:ausdny3_01.bsn_06.01,ausdny3_01.bsn,6,1,4,77
savvis:ausdny3_01.bsn:sgsing1_01.bsn:13:bsntrunk,09.01:ausdny3_01.bsn_06.01,ausdny3_01.bsn,6,1,0,50

##</code><code>##

#!/usr/bin/perl

open(I1,"Shasta-Naviscore-Audit.csv") or die "file1: $!";

while (<I1>) {  # get data
    chomp;
    my ($sshastaname,$ssubname,$stype1,$stype2,$sslot,$sport,$svpi,$svci) = split /,/;
    @SHASTA = ($sshastaname,$sslot,$ssport,$svpi,$svci);
}

open(I2,"Naviscore-Shasta-Audit.csv") or die "file2: $!";

while (<I2>) {  # get data
    chomp;
    my ($npvcname,$nslportname,$nshasta,$nslot,$nport,$nvpi,$nvci) = split /,/;
    @NAVIS = ($nshasta,$nslot,$nport,$nvpi,$nvci);
}