Lucy McWilliam wrote: > if ($i == $x) { > $position{$n} = 1; > } > if ($j == $x) { > $position{$n} = 1; > }
This looks as if it can be reduced to if ($i == $x || $j == $x) { $position{$n} = 1; } > open(OUT, ">$x); Wot, no error checking? > if ($n) { > print OUT "$key\n"; > } else { > print OUT "$key\n"; > } Huh? if(condition) { do stuff } else { do same stuff anyway } ? Cheers, Philip -- Philip Newton <[EMAIL PROTECTED]> All opinions are my own, not my employer's. If you're not part of the solution, you're part of the precipitate.