use strict;
use warnings;
use Data::Dumper;
my $name = "Father" ;
my @terms = qw(Mom Wife Son Daughter);
my %fam_old =( $name => { map{ $_=>1, } @terms} );
print Dumper \%fam_old;

##</code><code>##

$VAR1 = {
          'Father' => {
                        'Son' => 1,
                        'Wife' => 1,
                        'Mom' => 1,
                        'Daughter' => 1
                      }
        };