use strict;
use warnings;

my %family = (
    'Connie'    => 'Mama',
    'Brandy'    => 'Sissy',
    'Pete'      => 'Dude',
    'Tristan'   => 'Stinky',
    'Sophera'   => 'Finky',
    'priscilla' => 'BearDawg'
);

print "Please type in your name:\n";
my $name = <STDIN>;
chomp $name;

if (exists $family{$name}) {
    print "Hey $name, thank you for being my family!\n";
}
else {
    print "Thank you $name for participating but you are not family.\n";
}