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

##</code><code>##


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