use Sort::Key::Multi qw(ris_keysort); # ris => reverse integer, string

my @sorted = ris_keysort { $_->{flag}, $_->{name} } @hashes;
[download]