Tiny note: an easier way to get the dimension you want to average over to the 0 position than reorder is mv. That also can take negative numbers which count backwards from end, leading to this very common idiom:

print $matrix->mv(-1,0)->avgover;
[download]