This solution comes in at 89 characters:

@h=0;print map(rand>.5?++$H&&++$h[-1]&&H:++$#h&&$",a..gr),$/,
join('|',grep$_,@h),$/,$H,$/
[download]

Could you clarify the exact output format that the code should produce?