perl/配列、foreach、grep、split〜配列の要素を、foreachを回して数字だけ抜き出して配列に入れる〜

#! usr/bin/perl

use strict;
use warnings;

my @array1=("komatsu,32,A,3f5f,384901,34,123,5g42","takumi,557,NN,w9f9,3,45,1,4,8,1,412,4","subaru,9182934,FGUE,f8f2");

foreach (@array1){
    print "$_\n";
}

print "\n";

#数字だけ抜き出して配列に入れる
my @int;
foreach (@array1){
　　#@arrayの要素を「,」でsplitして、数字だけのものをgrepでマッチさせて、「=」で@intに代入。
    @int = grep {/^\d+\z/} split (/,/,$_);
    print "@int\n\n";
    
    my $sum=0;

#抜き出した数字を足し算してprint
    foreach (@int){
       $sum += $_;#二項演算子を使用
       print "小計$sum\n";
    }
    print "\n";
    print "合計$sum\n\n";
}