my @array3;
OUTER:
for my $a1 (@array1){
  for my $a2 (@array2){
    next OUTER if they_match_somehow();
  }
  push @array3, $a1;  # it didn't match anything in @array2
}