Could you show us the code where $system is populated?

Also, use Devel::Peek to print the internals of some of its values and let us see the output. For instance:

use Devel::Peek;
...
$system{some_host}{some_user} = $ldap->whatever();
Dump($system{some_host}{some_user});
[download]