foreach $name(@names){
$i=$i+1 ;
$newname_=$newnames[$i-1];