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