while (my ($key, $value) = each %bb) {
  print qq{$key contains $value\n};
}