#!/usr/bin/perl
use strict;
use 5.010;
use warnings;

# Feldwertigkeit, Priorität absteigend
my $best = [qw /29 20 31 5 18 36 17 3 16 9 27 32 
               25 35 11 10 23 4 26 12 24 30 6 15 
               13 2 21 19 14 33 22 7 34 8 1 28/];

# dieses Array nach @best umsortieren
my @prio = qw/7 12M 3 4 17CG 25 33/;

my $tp=join(' ', @prio);

$tp=~s/[A-Z]+//g;

my @sp = split ' ', $tp;

my @folge;

for (@$best) {
  
  my $i = 0;

  for my $k (@sp) {

    push @folge, $i if $_ == $k;

    $i++
  }

}

my @neu;

for (@folge) {

  push @neu, $prio[$_]
}

print "Geordnet nach \@best: @neu\n";