my $userId= "mary";

BEGIN  {
   my $day = "sunday";
   push (@INC, "./dir_$day");
}

...