=**************************************
    = Name: Moving Averages
    = Description:This code calculates movin
    =     g averages in a data set. I just knocked
    =     it up now while doing my maths homework 
    =     :) You just provide the first "x" number
    =     s ("x" being the number of points in you
    =     r moving average) and it works from ther
    =     e, shifting the obselete value off the f
    =     ront and pushing the new one on the end.
    =     I find this a lot less tedious than re-p
    =     unching the entire equation into a calcu
    =     lator every time :)
    = By: Mike Brownbill
    =
    =This code is copyrighted and has    = limited warranties.Please see http://w
    =     ww.Planet-Source-Code.com/vb/scripts/Sho
    =     wCode.asp?txtCodeId=545&lngWId;=6    =for details.    =**************************************
    
    print "Please enter the initial values separated by spaces: ";
    chomp($inval = <STDIN>);#Get the initial values
    @data = split(/ /,$inval);#Split them on the spaces
    unless($nval eq 'exit'){#Unless we want to quit 
    print "Average of ";
    for $item(@data){
    	print $item.",";#Print the current data set
    }
    print " : ".average(@data)."\n"; #Print the average
    shift @data;#Remove the unwanted value
    print "Next Value: ";
    chomp($nval = <STDIN>);
    unless($nval eq 'exit'){
    	push(@data,$nval); #Add the new value
    	}
    }
    sub average {
    	@avd = @_;
    	$els = 0;
    	$total = 0;
    	for $element(@avd){
    		$total += $element;#Add them all together
    		$els++;#Increment the counter
    	}
    	$av = $total / $els;#Calculate the mean value
    	return $av;#Return it
    }