#!/usr/bin/perl

use strict;
use threads;
use threads::shared;
use tmp;

my $rf = tmp->new();

share(my @data);

my @threads;
for ( my $count = 1; $count <= 10; $count++) {
        my $t = threads->new(\&sub1, $count);
        push(@threads,$t);
}
foreach (@threads) {
        my $num = $_->join;
        print "done with $num -- @data\n";
}
print "End of main program  @data\n";

sub sub1 {
        my $num = shift;
        print "started thread $num\n";
        print "done with thread $num\n";
        push (@data,share( $rf )); #### NOTE CHANGE HERE!
        return $num;
}