my $idx = 0;
for my $j (@a) {
    if ($j == $target) {
        splice(@a, $idx, 1);
        last;
    }
    ++$idx;
}