sub part{ 
    my( $n, $m ) = @_; 
    my @parts = (int( $n / $m )) x $m; 
    $n -= $_ for @parts; 
    my $i =0; 
    $parts[ $i++ ]++ while $n--; 
    return @parts;
}

##</code><code>##

      Rate  syp  buk  eli  ike
syp 8.36/s   -- -42% -47% -74%
buk 14.4/s  73%   --  -8% -56%
eli 15.8/s  89%   9%   -- -52%
ike 32.5/s 289% 125% 106%   --