Actually I was thinking that the 'x' operator would be the shortest way to do this... i was trying stuff like:

perl -e'print+(H,T)rand 2x200'

'cept the rand doesn't run every 'x', only the first time, so I either get 200 H's or 200 T's. is it possible to evaluate the rand on each concatenation?