my $price = 0;
foreach $line(@entry)
{
if($line =~ m/titleA/)
{
$price = 1;
next;
}
if($phone) 
{
print "The phone numbers of Family members are:";
print "$line";
$price= 0;
}
}