while (@arr2 = <CF>){

foreach $line (@arr2) {

	if ($line =~ m/(.*)   (.*)/) {

		$libn = "$1";
		#$libn =~ s/^\s+//;

		$libn =~ s/ /${1}.lib/x;
		print "$libn\n";
                push (@arr3, $libn);
		$string = "vi $libn";
		system ($string);
						}
					}
			}
}