INPUTFILE
Team1=Joe / Phil , Amenda
Team2=James / Pam, Joe
Team3=Carmen , Lisa / James
Team4=Don , Phil / Carmen
Team5=Uri , Kate / Don
------------------------
Expected OUTPUT
Don IS IN Team5 AND Team4
Phil IS IN Team4 AND Team1
Carmen IS IN Team4 AND Team3
James IS IN Team3 AND Team2
Joe IS IN Team2 AND Team1

##</code><code>##

use Data::Dumper;
open (my $infile, "<", "teamInput.txt") || die $!;

while (defined(my $line = <$infile>)) {
    chomp $line;
    my @team = split /=/, $line;

 my ($a, $b) = split /\//, $team[1]; #member in group 1 and 2 split by '/'
    my @x = split /\,/, $a;
    my @y = split /\,/, $b;
     
    my @results; 
    for my $x1(@x) {
        for my $y1(@y){
            #if ($x1 eq $y1){
        push @results,  [$team[0],$x1, $y1];
            }
        }

    print join("\n", map { $_->[1] "$_->[0] AND $_->[0]" } @results), "\n";
 #print Dumper(\@results);
    }
#}