Try this:

foreach $item (@array) {
  if (matches($item)) {
    $found = $last;
    last;
  }
  $last = $item;
}
[download]

where $last holds the "preceeding list element" of the current item and $found holds the "preceeding list element" of the item that matches.