for(0..$#numbers){
  print W_FILE $numbers[$_]," ",$diameters[$_],"\n";
}