use Sort::Key ; # sorting by a numeric integer key: @by_order = ikeysort { $_->{order} } @$data;