Help for this page
@id = sort { $lid->{split(/=/, $a)} cmp $lid->{split(/=/, $b)} } @id;
my $a_ = $a my $b_ = $b
$a = $a $b = $b