my $locus; while (...) { ... ($locus) = /.../; ... } [download]
In reply to Re^3: Writing to file part deux by ikegami in thread Writing to file part duex by perl_n00b