sub sort_hashkey($$) {
    my ($a,$b) = @_;
    $a->{foo} <=> $b->{foo};
}

my @sorted = sort_hashkey @list;