@array[0..$ix] = @array[$ix, 0..$ix-1]

##</code><code>##

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