&make;

sub make{
foreach $data(@file){
$_=split(/,/,$data);
&print;
$a++;
if($a eq 10){last;}
}
}

sub print{
$list=<<"_HTML_";
$list
$_[1]$_[2]$_[3]
_HTML_
}

299です。>>303さんレスありがとうございます。
勉強中の身でもうひとつ…

上記の例で、CSVデータから頭１０件を取り出して表示したいのですが、
foreachで強制的に10件カウントしたら終わらせているのですが
こうじゃなくて普通にforあるいはwhileで書いたらどうなりますか？
@fileから取り出す記述が分からないです。
また速度は変わりますか？
どうも適当にかじってるので基本的なものが出来てないです。