use strict;
use warnings;

my @arr = qw( bar qux foo qux2 bar2 foo foo3 );
my $marker = "foo";

print "$_\n" for items_after($marker, @arr);

sub items_after {
    my ($marker, @list) = @_;
    my $index = 0;
    for my $entry (@list) {
        print "Checking '$entry' eq '$marker'\n";
        if ($entry eq $marker) {
            return @list[$index..$#list];
        }
        $index++;
    }
    return;
}