use strict; use warnings; use Test::More tests => 2; my $ref = { 'servername.com' => 'foo' }; ok (defined $ref->{'servername.com'}, 'Present'); delete $ref->{'servername.com'}; ok (!defined $ref->{'servername.com'}, 'Absent');