use List::MoreUtils qw/firstidx/; my $from = firstidx {$_ eq $look_for} @array; return @array[$from+1..$#array]; [download]
In reply to Re: flip-flop flop by moritz in thread flip-flop flop by morgon