my @a = (1,2,3);
for (@a) {
    if ($_ == 2) {
        pop @a;
        last;
    }
}
print @a;