Try dumping the contents of $inventory{$itemcode} to see what's actually in it (using Data::Dumper:

print Dumper($inventory{$itemcode});
# or even:
print Dumper(\%inventory);
[download]

That way, you can verify that the hash values contain what you think they contain.