chomp returns the total number of characters removed, either 1 or 0, so your equality test will always fail. Just split up your efforts:

my @listaccountlocked = split "=", $accountlocked;

chomp($listaccountlocked[1]);

if (uc($listaccountlocked[1]) eq "TRUE") {
[download]

- Miller