in reply to find element in array, then advance to next element

my ($idx) = grep $list[$_] eq '-p', 0..$#list;
   or die("-p not found\n");
++$idx < @list
   or die("Missing value for -p\n");
my $val = $list[$idx];

[download]

In Section Seekers of Perl Wisdom