$result = join '&', sort split '&', $result;

##</code><code>##

my %hash = map { split '=', $_ } split '&', $result;