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

##</code><code>##

keysort_inplace { /^([^=]*)/; $lid->{$1} } @id;