open (cuttedFile, ">cuttedFile.txt") || die ("Could not open file. $!");
 foreach $wrestler(@array){                
   print "File cuttedFile opend successfully \n";
   print cuttedFile $wrestler;
 }
                 
 close (cuttedFile);