use strict;
use warnings;

use Math::FFT;

my $series[0] = 123;
my $series[1] = 260;
my $series[2] = 46;
my $series[3] = 94;
#   ...  etc  ... 

my $fft = new Math::FFT(@series);