for my $size (sort {%{$entries{$region}{$a}{size}} <=> %{$entries{$region}{$b}{size}}} keys %{$entries{$region}})
{
...
}