http://www.perlmonks.org?node_id=1065130


in reply to Grep & Regex Question

Perhaps you mean something like:
my $position = 'FL1'; my @priority = qw(RB1 RB2 FL1 FL2 QB1 QB2 TE1 WR1 WR2 DST); @priority = grep $_ ne $position, @priority;
--
A math joke: r = | |csc(θ)|+|sec(θ)| |-| |csc(θ)|-|sec(θ)| |