use strict;

 while(<DATA>)
 {
     my @data = split(',');

     if($data[1] eq 'Y')
     {   
         print "RE Name:" . $data[0] . "\n";
     }
}


__DATA__
davis,N
brown,Y
smith,Y,N,B
jones,N,Y,B,A
clarke,Y,N,Y