Make that 48:

sub p
{
  @_?map{my$a=$_;map[$a,@$_],p(grep$_^$a,@_)}@_:[]
}
[download]