my $element = 'dog';
my $last = $element;
for (@array) {
  ($_, $last) = ($last, $_);
  last if $last eq $element;
}