my $locus;
while (...) {
    ...
    ($locus) = /.../;
    ...
}