Select Code to Download

use threads;
use threads::shared;
...

$hash{'foo'}{'bar'} = 1; 
$hash{$var}{'bar'} = 1;