my @quelle=('a', 'b', 'd');
my $rating='adb';

@quelle = sort { index ($rating, $b) <=> index ($rating, $a) } @quelle;

print @quelle; # Ausgabe: bda