foreach my $alphabeta (
  my $z;
  grep { $z = $_; grep { $z eq $_ } @alphas } @betas ){
  # do something
}