while(<CORNERS_LIST>){
	$_=~ s/\s+/ / ;
	chop $_;
	push @corners, $_ ;
	print "\n@corners\n";
	}

my $corner;

foreach(@corners){
	$corner=$_;
	&loading_tsc;	
	}


sub loading_tsc{
	chdir($corner) or die "\n $!\n";
	print "\n";
	print `pwd`;
	print "\n";
	}


##</code><code>##

/file/path/is/AAA


 No such file or directory 

##</code><code>##

/file/path/is/AAA
/file/path/is/BBB
/file/path/is/CCC
/file/path/is/DDD