use strict;
use warnings;

my @priority = qw(RB1 RB2 FL1 FL11 FL2 QB1 QB2 TE1 WR1 WR2 DST);
my $position = 'FL1';

print "$_\n" for grep !/$position/, @priority;

##</code><code>##

RB1
RB2
FL2
QB1
QB2
TE1
WR1
WR2
DST