my ($alarmed,$flawed,$inspected);
    
    open (FILE2, "<$path2") or die "Cannot open $path2";
    $record2 = <FILE2>; #skip first line
    while ($record2 = <FILE2>){
            my @temporary = split(",",$record2);
            if ($temporary[4] eq "alarmed")
            {
                alarmed += $temporary[5] ### ERROR LINE ###
                #print "$temporary[5]\n";
            }
    }
    close(FILE2);