in reply to flip-flop flop

Maybe something like 
use List::MoreUtils qw/firstidx/;

my $from = firstidx {$_ eq $look_for} @array;
return @array[$from+1..$#array];

[download]
Perl 6 - second systems done right

Replies are listed 'Best First'.
Re^2: flip-flop flop
by AnomalousMonk (Archbishop) on Mar 30, 2012 at 11:27 UTC

    Because  firstidx returns -1 if the test block never evaluates true, a test is needed avoid returning all elements if the looked-for element is not found:
        my $from = firstidx {$_ eq $look_for} @array;
        return unless $from > -1;
        return @array[$from+1..$#array];

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom