ループ

while(<>)
{
($s1,$s2,$s3) = unpack( "A5A10A3", $_ ); # 固定長レコードを分解して変数に代入
print "$s1,$s2,$s3¥n";
}

# カウンタがある数値になるまで処理を繰返す
for (my $i = 2; $i <= 10; $i++)
　 {
ここに処理を記述
}

#　$_ の値を 1 から 10まで順に増加してループ
for ( 1..10 )
{
print "$_ ¥n"
}

# @number 内の要素を1つづ取り出し、２倍にして表示する
foreach $num ( @number )
{
print ( $num * 2 ); #「print (map { $_ * 2 } @number) 」と同じ
}