Help for this page

Select Code to Download

Select or download this

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