my %hash=( foo=> 1, bar => 2, fazz=> 0 ); 

my $rc = delete $hash{bar};

printf "%s\n",$rc;

$rc = delete $hash{fazz}; 


printf "%s\n",$rc;