#        1         2         3
#2345678901234567890123456789012345678

perl -le'print+(H,T)[rand 2]for a..gr'

perl -le'print 1<rand 2?H:T for a..gr'