#! /usr/bin/perl
#
#
#

use strict;
use warnings;

#------------------data-------------------------
my @Rainfall ;
my $Index ;
my ($Total, $Average) = 0, 0;
#------------------program----------------------

print " Enter 12 numbers for the rainfall for each month \n";

for ( $Index = 0; $Index < 12 ; $Index++ )
{
 print "Enter a month's rainfall: " ;
 chomp($Rainfall[$Index] = <STDIN>);
}

#
# now we have all the input, we can do things with it:
#

foreach (@Rainfall)       

{

$Total = $_;