use YAML;
use Test::More tests => 3;

my %hash = map { $_ => $_ } 0 .. 3;

for my $key (0 .. 1)
{
    pass( "deleted $key" ) if () = delete $hash{$key};
}

is( keys %hash, 2, "deleted two keys" ) or warn Dump \%hash;