Select Code to Download

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

my $element = 'dog';
my $last = $element;
...
  ($_, $last) = ($last, $_);
  last if $last eq $element;
}