Select Code to Download

@bar=sort {zc($a) <=> zc($b)} 
      permute([0..2],[0..2],[0..2],[0..2],[0..2]);
...
  return (grep /0/,@a[0..1])+(grep /0/,@a[3..4]);
}

push @list,permute(nz($a),nz($b),$c,nz($d),nz($e));
push @list,permute([0],nz($b),$c,nz($d),nz($e));
...
push @list,permute(nz($a),nz($b),$c,nz($d),[0]);
push @list,permute([0],[0],$c,nz($d),nz($e));
etc...