@id = sort { 
    ( my $a_ = $a ) =~ s/=.*//s;
    ( my $b_ = $b ) =~ s/=.*//s;
    $lid->{$a_} cmp $lid->{$b_}
} @id;