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