use List::MoreUtils qw/firstidx/;

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