sub mysort ($$) { $_[0]->{key} <=> $_[1]->{key} }
    my @sorted = sort mysort @unsorted;