my @id = ('001=0,2', '010=3', '014=0,0', '060=4', '071-1=3');
[download]

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

Update: Oops, added missing underscores as per Re^5: How do I sort an array by hash value?

Thanks. I really appreciate your help.
Here is how I failed:

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

Your approach doesn't seem to sort the array unless I change it from

my $a_ = $a
my $b_ = $b
[download]

to

$a = $a
$b = $b
[download]

But if I do that then the values of the array get cut off at the '=' sign (I understand why).
What does the 'my $a_ = $a' do?