Help for this page

Select Code to Download

Select or download this

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