##
my @values = map {
my $key = $_;
map {
bar( $key, $_)
} keys %{$properties{$_}}
} keys %properties;
##
##
my @values = map {
my $key = $_;
map {
[ $key, $_, $properties{$key}{$_}{'value'} ]
} keys %{$properties{$_}}
} keys %properties;
##
##
my @values = map {
my $key = $_;
map {
[$key, $_, $properties{$key}{$_}{'value'}]
} sort {$a <=> $b} keys %{$properties{$_}}
} sort keys %properties;