foreach my $d(@data){
    my %h;
    foreach my $c(0 .. $#categories){
        my $val=$d->[$c];
        next unless defined $val;
        my $cat=$categories[$c];

        $h{$val}=$cat;
    }

    push @master, \%h;
}