#!/usr/dev/perl/bin/perl -w
use strict;
use threads;
use Data::Dumper;

my $thread = threads->new(
        sub { my %foo;
              @foo{1..100}  = (1..100);
              print Dumper %foo;
              return %foo }
        );

print "Upon Joining ", $thread->join;