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