srand (time ^ ($$ + ($$ << 11))); print join ",", map { srand (time ^ ($$ + ($$ << 11))); $_=int(rand(10)) }(0..10);