my @fields;
for (0..89) {
    my $field = $stuff[90];
    print $field;
    push @fields, "$field\t";
}