@result{@array} = map {
    int($num/@array) + ($_ < $num % @array)
} 0 .. $#array;