It's already very fast, but you can improve it somewhat by doing your rotations with

$num = chop($num) . $num;



      Rate    s chop
s    258/s   -- -14%
chop 299/s  16%   --
[download]

the lowliest monk