my $t = -1; while ($t++ <= $line_count) { if ($item_line[$t] ne "") { print FILE "$score$item_line[$t] ##$score = score and $item_line[$t]= SOME_WORD 3.0 3.0 3.0 3.0(for this example) \n\n"; } }