for my $elem (@a) {
    if ($elem =~ m{\A \d+ \z}x && $elem > 15) {
        $elem++;
    }
}