use List::Utils 'sum';
sub average {
    my ($data, $first, $last) = @_;
    my %data = %$data;
    my @goodkeys = grep {exists $data{$_}} $first .. $last;
    sum( @data{ @goodkeys } ) / @goodkeys;
}