"It does exactly as I expect it to do."

What did you expect this code to do?

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

Here's what it does:

• creates a new lexical variable called $lore
• assigns the string 'E' to $lore
• calls chomp which does absolutely nothing
• allows $lore to go out of scope so that it cannot be accessed by any other part of your code

In short, create a variable, assign a value, perform a pointless operation and then throw it all away.

You possibly have the same problem with 'chomp(my $lore = "L");' but that part of the code is incomplete so I can't tell.