@id = sort { $lid->{split(/=/, $a)} cmp $lid->{split(/=/, $b)} } @id; 

##</code><code>##

@id = sort { $lid->{(split(/=/, $a))[0]} cmp $lid->{(split(/=/, $b))[0]} } @id;

##</code><code>##

my %temp = map { $_ => (split(/=/, $_, 2))[0] } @id;
@id = sort { $lid->{$temp{$a}} cmp $lid->{$temp{$b}} } @id;