sub Mix{
  map{my$i=$_;map{$$_[$i]}grep{@$_>$i}@_}0..map{@$_}@_
}