UBB.Developers Forums UBB.classic V6.4 - 6.7 Modifications V6 Mod Ideas additional profile fields hack (different than other hacks)

In ubb_profile.cgi, I added the following text after
# request for user's own profile
$in{u} = $user_number;

There were 8 additional fields that I added. Profile lines 91-98.

#######################
#######################
# calibrate tech_spec1
$tech_spec = $user_profile[91];
foreach (qw(1 2 3 4 5 6 7 8 9 10)){
$select_list1{$_}='';
}
$select_list1{$tech_spec} = 'SELECTED';

# calibrate tech_spec2
$tech_spec = $user_profile[92];
foreach (qw(1 2 3 4 5 6 7 8 9 10)){
$select_list2{$_}='';
}
$select_list2{$tech_spec} = 'SELECTED';

# calibrate tech_spec3
$tech_spec = $user_profile[93];
foreach (qw(1 2 3 4 5 6 7 8 9 10)){
$select_list3{$_}='';
}
$select_list3{$tech_spec} = 'SELECTED';

# calibrate tech_spec4
$tech_spec = $user_profile[94];
foreach (qw(1 2 3 4 5 6 7 8 9 10)){
$select_list4{$_}='';
}
$select_list4{$tech_spec} = 'SELECTED';

# calibrate tech_spec5
$tech_spec = $user_profile[95];
foreach (qw(1 2 3 4 5 6 7 8 9 10)){
$select_list5{$_}='';
}
$select_list5{$tech_spec} = 'SELECTED';

# calibrate tech_spec6
$tech_spec = $user_profile[96];
foreach (qw(1 2 3 4 5 6 7 8 9 10)){
$select_list6{$_}='';
}
$select_list6{$tech_spec} = 'SELECTED';

# calibrate tech_spec7
$tech_spec = $user_profile[97];
foreach (qw(1 2 3 4 5 6 7 8 9 10)){
$select_list7{$_}='';
}
$select_list7{$tech_spec} = 'SELECTED';

# calibrate tech_spec8
$tech_spec = $user_profile[98];
foreach (qw(1 2 3 4 5 6 7 8 9 10)){
$select_list8{$_}='';
}
$select_list8{$tech_spec} = 'SELECTED';
#######################
#######################

This is the final text I used in public_edit_profile.pl for the 8 additional profile fields (91-98):

#######################
#######################