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