for(1..200){$c=['H','T']->[rand(2)];$r{$t}++if$c ne 'T'; $t++if$c eq 'T';}for(keys%r){push@g,$r{$_}}print join('|',@g),"\n";