my %CS101 ...
ave(\%CS101);
sub ave {
    my( $cs ) = @_;
    print "$_\n" for values %$cs;
}
sub avee {
    my( $cs ) = @_;
    for my $k (keys %$cs ){
        print $cs->{$k}, "\n";
    }
}