my @Fld = ( split /\t/ )[0,4]; my $col = 0; foreach my $token (@Fld) { #### my @fld_no = qw( 0 4 ); my $row = 0; # ... foreach my $idx (@fld_no) { $worksheet->write($row, $col, $fld[$idx]);