I'm not pushing that issue then, but you could still do something like this:

for my $mainkey ( sort keys %copy ) {
    my $subref = $copy{ $mainkey };
    my $total = $subref -> { Total };
    my $value = $subref -> { Value };
    # process $mainkey, $total and $value ...
}
[download]