for ( @$array ) {
    $_->[0] = $test if $_->[0] =~ m/\D/;
}

##</code><code>##

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