Person1, Name = Lydia, Age = 20, Gender = F
Person2, Name = Carol, Age = 54, Profession = Student, Gender = F, Height = 4'8
Person3, Name = Andy, Age = 37, Location = USA, Gender = M, Weight = 117
Person4, Name = Nick, Age = 28, Gender = M

##</code><code>##

my @terms = qw(Name Age Gender);
my $match = "Person2"
while (<$file>) {
    chomp;
     if (/$match/){
    @array= split(/,/);
    #What next???
    }
}