E:\>perl -le "$x=10; @a=(0..5); for $x (@a) { print $x; $x=int(rand 100); } print $x; print qq(@a)"
0
1
2
3
4
5
10
41 44 77 55 23 70