use strict;
my $i;
my %conductordata;


format =
# Conductor
@>>>>>>>>>>@>>>>>>>>>>
$conductordata{$_}{radius},$conductordata{$_}{length}
.

for ($i=1 ;$i<=10 ; $i++){
    $conductordata{"conductor$i"}{radius}="radius$i";
    $conductordata{"conductor$i"}{length}=$i**2;
}

foreach (sort keys %conductordata){write}