for?...foreach?

bloves

for(;;;){}#结构
foreach my $var(@var){} #结构
for(1..n){}#结构
for(@var)#结构
foreach(@var)#结构
想怎么用就怎么用吧，反正解决问题是关键！