for my $key ( sort { $a <=> $b } keys %result ) {
    my $ref = $result{$key};
    while ( my ( $k, $v ) = each %{$ref} ) {
        say qq($k => $v);
    }
}