use Sort::Key::Radix qw(ukeysort); my @by_order = ukeysort { $_->{order} } @data;