my %result = map
  { $_ => (  int($num / @array)
           + ($num % @array ? ($num--, 1) : 0)
          ) } @array;