mapcar { push @{$facdata{$_[0])}, $_[1] } \@facfields, \@facrow;
[download]

Is that more what you wanted? If you don't want to use mapcar (type mapcar in the PM Search box to find it), then you can code that like:

    for( 0..$#facfields ) {
        push @{ $facdata{$facfields[$_]} }, $facrow[$_];
    }
# or
    push @{ $facdata{$_} }, shift @facrow  for @facfields;
[download]

Hope that helps.