my @undefined = grep !defined $stats{$_}, keys %stats;
if(@undefined { 
    local $" = ", ";
    my $undefined = @undefined;
    warn "$undefined values were not defined, for keys (@undefined)\n";
}

##</code><code>##

my $undefined = grep !defined, values %stats;
warn "$undefined values were not defined\n" if $undefined;