my $i = 0; again: $array[$i] *= 2 unless $array[$i] =~ /[^0-9]/; goto again if ++$i <= $#array;