if ($key =~ /^[a-zA-Z]\z/) {

##</code><code>##

            if (  $key =~ /^[a-z]\z/
               || $key =~ /^[A-Z]\z/ && $flux !~ /[a-z]\z/
            ) {

##</code><code>##

A2990_duA_1
A2990_du_1
A2990_du_2
A2990_du_3
A2990_du_4
A2990_du_5
A2990_du_6
A2990_du_7
A2990_du_8
A2990_du_9
A2990_du_10
LXP_01
LXP_02
...