@a = sort {
    $a->{key1} <=> $b->{key1}
                or
    $a->{key2} <=> $b->{key2}
} @a;