#!/usr/bin/perl -w
use strict;

my %hash = ( Carol => 22, Mary => 21, Chris => 30 );

for (keys %hash){
   delete $hash{$_};
};