for my $ok(grep !defined( $hash{ $_ }{ created }), keys( %hash )){
  print "$ok == $hash{$ok}{action}\n";
}