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

##</code><code>##

my $a_ = $a
my $b_ = $b

##</code><code>##

$a = $a
$b = $b