Though I personally believe that your setup is flawed, the following may work:

use Module::Load;

$day    = "sunday";
$userId = "mary";
 
load("$day::module_$userId", qw(%diary));

*diary = \ %diary::diary;
[download]