#!/usr/bin/perl

use strict;
use warnings;

print "\nMean Average Program\n\nenter values, when done enter 'done'\n\n";

my $total = 0;
my @value;

my $control = 1;
while ($control != 0){
  print "Enter a value('done' if finished): ";
  chomp($value[$total] = <>);

  if ($value[$total] eq 'done' || $value[$total] eq 'Done' || $value[$total] eq 'DONE'){
    $control = 0;
  }

  $total++;
};
pop(@value);
$total--;

my $mean = 0;
for my $valNum (0 .. $total){
  $mean += $value[$valNum];
}

$mean = $mean / $total;

print "\nThe mean of your values is $mean\n";