{ 
    use threads;  
    my @subs = map{ eval "sub{ print $_; }" } 1 .. 10; 
    threads->new( sub{ $_->() for @subs; } ); 
    sleep 10; 
};;
1
2
3
4
5
6
7
8
9
10