my @bb = 1..10;
my %bb = @bb;
require Data::Dumper;
print Data::Dumper::Dumper(\%bb);

##</code><code>##

$VAR1 = {
          '9' => 10,
          '5' => 6,
          '7' => 8,
          '3' => 4,
          '1' => 2
        };

##</code><code>##

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

##</code><code>##

3 contains 4
7 contains 8
5 contains 6
9 contains 10
1 contains 2

##</code><code>##

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;
}

##</code><code>##

'keys' over "1, 2, 3, 4, 5, 6, 7, 8, 9, 10"
7 contains 8
9 contains 10
1 contains 2
5 contains 6
3 contains 4

'values' over "1, 2, 3, 4, 5, 6, 7, 8, 9, 10"
key contains 6
key contains 10
key contains 2
key contains 4
key contains 8