$_->[0] =~ m/\D/ and $_->[0] = $test for @$array;