　途中だけど。
use strict;
use warnings;
# 変数の宣言
my $temp_isbn = "";
my $_odd = ;
my $_even = ;
# 適当なisbn10を代入して、978をつける
$temp_isbn = '978' . '4582744176';
print "isbn: " . $temp_isbn . "\n";
# 一桁ずつばらして配列@fooに代入
my @foo = split(//, $temp_isbn);
# 奇数の処理
print 'Odd Number: ';
for (my $i = ; $i <= 12; $i = $i + 2){
$_odd += $foo[$i];
print $foo[$i] . " ";
}
print "\n";
# 偶数の処理
print 'Even Number: ';
for (my $i = 1; $i < 12; $i = $i + 2){
$_even += $foo[$i];
print $foo[$i] . " ";
}
print "\n";