sub f { my ($j, @b); for (unpack "c*"," "){ $b[$j++>>8] += $_ } eval pack "c*", @b }