Select Code to Download

for ($i=1 ;$i<=$number ; $i++) {
  $conductordata{"conductor$i"} = 
    [$values{"radius$i"}, $values{"length$i"}]
}

for (keys %conductordata) {
  print "$conductordata[0] $conductordata[1]\n";
}