use Sort::Key qw(keysort_inplace);
keysort_inplace { $lid->{$_} } @id;