Select Code to Download

use Sort::Key qw(keysort_inplace);
keysort_inplace { $lid->{$_} } @id;

keysort_inplace { /^([^=]*)/; $lid->{$1} } @id;