#! /usr/bin/perl
# vim:ts=4 sw=4 sts=4 et nu fdc=3:
use strict;
#use warnings;

my @order = qw(
                9 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
);

my @items = qw( 
    7 12M 3 4 17CG 25 33
);

# prepare order hash
my %order;
{
    my $position = 0;
    $order{$_}=$position++ for @order;
}

my @ordered_items;
for my $element ( @items ) {

    # clean element from non-digits
    ( my $copy = $element ) =~ tr/0-9//cd;

    if ( exists $order{$copy} ) {
        $ordered_items[ $order{$copy} ] = $element;
    }
    else {
        warn "No position defined for '$element'. skipped ...\n";
    }
}

# clean result array of undefined values
@ordered_items = grep {defined} @ordered_items;

print "@ordered_items\n";


__END__