無事できました！
open IN, "a.txt";
while (<IN>) {
@nums = split(/\,/,$_);
}
close IN;
open IN, "b.txt";
while (<IN>) {
@suuji = split(/\,/,$_);
}
close IN;
for($i=0;$i<=3;$i++ ){
$goukei[$i] = $nums[$i] ** 2 + $suuji[$i] ** 2;
$sokudo[$i] = $goukei[$i] ** 0.5,"\n";
push @sokudo,"$sokudo[$i]";
}
foreach $a (@sokudo) {
print $a,"\n";
}
実行結果
2.23606797749979
2.23606797749979
2.23606797749979
2.23606797749979
2.23606797749979

ところで実行結果が一つ余分に出てくるのは何故でしょうか？