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 

##</code><code>##

$VAR1 = {
          'son' => [
                     'male',
                     '28',
                     'musician'
                   ],
          'daughter' => [
                          'female',
                          '19',
                          'software_engineer'
                        ],
          'father' => [
                        'male',
                        '65',
                        'Engineer'
                      ],
          'mother' => [
                        'female',
                        '60',
                        'home_engineering'
                      ]
        };