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