while ($line = <CF>) {

	@arr2 = @empty_arr;

    if ($line =~ /(\S+)/) {
        $libn = "$1.lib";
        #print "$libn\n";
	push (@arr2,$libn); #print "@arr2\n";
    }
}

foreach $libn (@arr2) {

open (VI,"$libn") || die "ERROR: can't read $libn\n";

#print"$libn\n";

if ($line =~ m/(Car code:)((.*))/) {
                $a = $line; 
                ....
                ..              
  
}