my @sorted = sort {
    (keys %$a)[0] cmp (keys %$b)[0]
} @unsorted;