no strict 'refs';
    foreach my $F (@$Fields) {*{$F} = \ $_t->{$F}->[$_r]};