use List::Util qw(sum);
sub average {
    my ($data, $first, $last) = @_;
    my @values = map { local $_ = $data->{$_}; defined() ? $_ : () } $first .. $last;
    sum(@values) / @values;
}