#!/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);
}