foreach my $con ( @consonants ) {
     foreach my $vow ( @vowels ) {
        ..
     }
  }