my @fx = @{ 
    reduce( sub{ push @$a, $a->[-1]+$b; $a }, [ 0 ], map{ rand()**rand(3) } 1..10 ) 
};