use 5.14.2;
use warnings;

use Text::CSV_XS "csv";
use Data::Peek;

my $data = csv (in => *DATA);
my @hdr  = @{shift @$data};
my $n    = $#hdr;
my @students = map {
    my %h;
    @h{@hdr} = splice @$_, 0 , $n;
    $h{hobbies} = [ @$_ ];
    \%h,
    } @$data;

DDumper \@students;
__END__
name,home_town,age,hobbies
Angie Green,Denver,12,Horses,Painting,Karaoke,Ham Radio
Jamie Brown,London,34
Mark White,Madrid,56,Cooking,Perl,Running
Mary Black,Dublin,30,Baking,Singing,Swimming,Programming Perl

##</code><code>##

[
    {   age              => '12',
        hobbies          => [
            'Horses',
            'Painting',
            'Karaoke',
            'Ham Radio'
            ],
        home_town        => 'Denver',
        name             => 'Angie Green'
        },
    {   age              => '34',
        hobbies          => [],
        home_town        => 'London',
        name             => 'Jamie Brown'
        },
    {   age              => '56',
        hobbies          => [
            'Cooking',
            'Perl',
            'Running'
            ],
        home_town        => 'Madrid',
        name             => 'Mark White'
        },
    {   age              => '30',
        hobbies          => [
            'Baking',
            'Singing',
            'Swimming',
            'Programming Perl'
            ],
        home_town        => 'Dublin',
        name             => 'Mary Black'
        }
    ]