用Perl求一串奇数的和

用Perl 语言，求1+3+5+7+……99，初学，求大家帮忙

$a = 0;
for (1..100){
     if (($_%2 ne 0)){
        $a = $a + $_;
    }
}
print "$a";

如有帮助，请点击我的回答下方的【采纳该答案】按钮帮忙采纳下，谢谢!

您好，我是有问必答小助手，您的问题已经有小伙伴帮您解答，感谢您对有问必答的支持与关注！
PS：问答VIP年卡 【限时加赠：IT技术图书免费领】，了解详情>>> https://vip.csdn.net/askvip?utm_source=1146287632