#!/usr/bin/perl

# A better program that does the same thing

#      First Name : Bill
#      Last Name: Jones
#      ID: 76111
#      Assignment #1
#
#      Filename: FindAverage.pl
#
#      Description: This program will find the average of 3 quiz scores and output the results

use strict;			# PLEASE NOTE: all programs MUST contain this line

# Variable declaration. PLEASE NOTE descriptive variable names!!

my $quiz1;
my $quiz2;
my $quiz3;	
my $average;


#	assign the quiz scores

$quiz1=90;
$quiz2=67;
$quiz3=88;

#	now compute the average

$average=($quiz1+$quiz2+$quiz3)/3;
print "The average is ",$average,"\n";