use warnings;
use strict;
use Data::Dumper;

my %family_hash;

while (<DATA>) {
    my ( $key, @values ) = split /\s/, $_;
    push @{ $family_hash{$key} }, @values;
}

print Dumper \%family_hash;

__DATA__
father male 65 Engineer
mother female 60 home_engineering
son male 28 musician
daughter female 19 software_engineer