printf qq{\n'keys' over "%s"\n}, join q{, }, @bb;
foreach my $key (keys %{ {@bb} }) {
  printf qq{$key contains %s\n}, $bb{$key};
}

printf qq{\n'values' over "%s"\n}, join q{, }, @bb;
foreach my $value (values %{ {@bb} }) {
  printf qq{key contains %s\n}, $value;
}