例:「名前配列の作成」
  
open F, "1年1組名前.txt" ;
$name[11][0] = undef ;
for (<F>)
    {
     chomp ;
     $name[11][++$i] = $' if /,/ ;
    }
  
print <<EOF;
1年1組1番:$name[11][1]
1年1組2番:$name[11][2]
1年1組3番:$name[11][3]
EOF
  
例:「得点配列の作成」
  
open F, "1年1組1学期中間.txt" ;
for (<F>)
    {
     chomp ;
     $kumi[11][++$i] = [undef, (split /,/)[1..5]]
    }
  
for (@{$kumi[11]}) {print "@$_ \n"} ;

# seiseki.pl
# 成績管理プログラム(1)
  
# 教科番号の表示
  print "\n 1-英語, 2-数学, 3-国語, 4-理科, 5-社会 \n" ;
  
# 教科名の配列
  @kanji = qw (undef 英語 数学 国語 理科 社会) ;
  
# 名前の配列
  open F, "1年1組名前.txt" ;
  $name[11][0] = undef ;
  for (<F>)
    {
     chomp ;
     $name[11][++$i] = $' if /,/ ;
    }
  
  open F, "1年2組名前.txt" ;
  $name[12][0] = undef ;
  for (<F>)
     {
      chomp ;
      $name[12][++$j] = $' if /,/ ;
     }
  
# 成績の配列
  open F, "1年1組1学期中間.txt" ;
  for (<F>)
     {
      chomp ;
      $kumi[11][++$k] = [undef, (split /,/)[1..5]]
     }
  
  open F, "1年2組1学期中間.txt" ;
  for (<F>)
     {
      chomp ;
      $kumi[12][++$l] = [undef, (split /,/)[1..5]]
     }
  
# 得点の表示
  while (1)
    {
     print "\n 表示させる得点 (例:1101-1):" ;
     $ten = <STDIN> ;
     chomp $ten ;
     $ten =~ /(..)(..)-(.)/ ;
     ($class, $ban, $kyoka) = ($1, $2, $3) ;
     $test = $kumi[$class][$ban][$kyoka] ;
     print "\n $num $name[$class][$ban]:$kanji[$kyoka] $test 点 \n" ;
  
# 継続判断
     print "\n 続けますか (1.はい  他.いいえ):" ;
     $nx = <STDIN> ;
     chomp $nx ;
     unless ($nx eq "1") {last}
    }