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