use Module::Load;

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

*diary = \ %diary::diary;