#!/usr/bin/perl
#
use warnings;
use strict;
use Carp;
use 5.016;

ave();

my %CS101 =("Joe Below" => 100,
			"Dan Gold"	=> 90,
			"Jon Kery"	=> 40,
			"Elton Jon"	=> 60,
);

sub ave {
	foreach (keys %CS101) {
		print $CS101{$_}, "\n";
	}
}	

1;

__END__