Use labels:

PARENT: foreach $one (@one) {
  foreach $two (@two) {
    $one =~ m/\(.\)(.+)\(.\)/;

    if ($two eq $1) {
      push @result, $one;
      next PARENT;
    }
  }
}
[download]

Odd are, at least three other people will post the exact same thing before I hit 'create'