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