$strings{"E1,E2"} = $afinity12c;
$strings{"E1,E3"} = $afinity13c;
$strings{"E1,E4"} = $afinity14c;
$strings{"E1,E5"} = $afinity15c;
$strings{"E1,E6"} = $afinity16c;
$strings{"E1,E7"} = $afinity17c;
$strings{"E1,E8"} = $afinity18c;
$strings{"E1,E9"} = $afinity19c;
$strings{"E1,E10"} = $afinity110c;
print map{ "$_ = $strings{$_}\n <p>" }
        sort{ $strings{$b} <=> $strings{$a} }
            keys %strings;