while (my ($banker, $rubbish) = each %bankers) { delete $bankers{$banker}; }