$i = 0;
%L = map { $_ => $i++ } @L;
@Ss = sort { $L{$a} <=> $L{$b} } @S;