Select Code to Download

@tobesorted=(b,a,d);
@sorted=sort by_list @tobesorted;
...
map { if ($b eq $sortorder[$_]){$bi=$_} } 0..$#sortorder;
$ai <=> $bi;
}

@sorted=sort by_list(\@sortorder) @tobesorted;
....
sub by_list{
@sortorder=@{$_[0]};
.....