@moving_averages = moving { sum(@_)/@_ } $n, @data