CC:\test>perl -Mthreads -E" async{ for(1..4){ state $x = 123; say threads->tid, ':', $x++ } }->join for 1 .. 4"
1:123
1:124
1:125
1:126
2:123
2:124
2:125
2:126
3:123
3:124
3:125
3:126
4:123
4:124
4:125
4:126