#! /usr/bin/perl

# 配列を用意
@moes = ("sakura", "tomoyo", "misaki", "rakka", "sora");

# 配列の要素数だけループさせる
foreach $moe ( @moes ) {
	print "名前：$moe\n";
}

# 配列の番号も使いたいようなループなら for 文で
for( $loop=0 ; $loop <= $#moes ; $loop++ ) {
	$num = $loop+1;
	print "$num人目の名前：$moes[$loop]\n";
}

exit;