programming-examples/perl/Statement/Average-sales problem with counter-controlled repetition.pl

$total = 0;                       
$weekCounter = 1;                 


while ( $weekCounter <= 5 ) {    

   print "Enter sales for week $weekCounter: ";
   chomp( $sales = <STDIN> );     

   $total += $sales;              
   ++$weekCounter;                
}