#!/usr/bin/perl
use strict;
use threads;
use threads::shared;

my %h:shared;
for (0..10) {
        $h{$_}=&share({});
}
for (keys(%h)) {
        print "$h{$_}\n";
}