@array = magical_permutation_generating_sub;
@sorted_array = sort srtsub @array;

sub srtsub {
  #strip out everything that's not a zero, making it easy
  #to compare the number of zeros
 ($A = $a) =~ s/[^0]//;
 ($B = $b) =~ s/[^0]//;

 return ($A gt $B);
}