I think this is what you want:

my @entries;
my @keys;
while ($_ = <DATA>) {
    if ($. == 0) { # first line
        @keys = split /;/;
        next;
    }
    my %data;
    $data{@keys} = split/;/;
    push @entries, \%data;
}
[download]

Update: updated some code errors.