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