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";
	}