@name_parse = split(/.TGA/,$TGA_file[$i]);
open (OUT, ">D:\$name_parse[0].scr");