use strict;
use warnings;
use threads;
use threads::shared;

my %clients : shared;
my $session_id = 3;

$clients{$session_id}{active} = 1; # Invalid value for shared scalar.