my $i = 0;
{$array[$i] *= 2 unless $array[$i] =~ /[^0-9]/;
 redo if ++$i <= $#array;}