1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23

-
!
 
-
|
!
-
!
-
|
-
|
|
!
|
-
!
|
|
|
-
 
!

# 配列の要素数だけループを回します
my @list = (1..10);
foreach $val (@list)
{
    print "$val\n";
}
# 制御変数は省略できます
foreach (@list)
{
    print "$_\n";
    # 次のループへ強制的に進む場合は、nextを
    # ループを強制的に抜ける場合は、lastを
    # 現在のループで、先頭に戻る場合は、redoを記述します
}
 
# ハッシュのキー数だけループを回します
my %hash = ('a1' => '100',
            'a2' => '200',
            'a3' => '300');
foreach $key (keys %hash)
{
    print "$key\n";
}