foreach my $corner(@corners){
               chomp $corner;          # we still need to chomp it..
               &loading_tsc ($corner); # better use of a sub.

    }