#!/usr/local/bin/perl
#Family.pl
#use strict
#use warnings


$name=<stdin>;
%family['Connie',=>'Mama','Brandy',=>'Sissy','Pete',=>'Dude','Tristan',=>'Stinky',
'Sophera',=>'Finky','priscilla',=>'BearDawg'];

print"Please type in your name:"/n;
$name=<stdin>/n;
            
if((name=<stdin>)!=%family[])
            {
print"Thank you $name for participating but you are not family./n";
             }

else-if(($name=<stdin>)==%family[])
		{
	print"Hey $name, thank you for being my %family[]!\n";