if ($cmmdty eq "NONE") {
chomp(my $lore = "E");
} ...