#call:
use Spikehisto;
$histo=autocorr([map{$_/5}(0..1000)],2,100,2000); 
print join "\t", grep {$_} @$histo;