use strict;
use warnings;

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