perlでCSVファイル簡単読み込み

perl 
open(IN, 'customer_data.csv');
while(<IN>){
    chomp;
    my @d = split(/,/, $_);
    # ------------------------
    # ここに、集計処理を書く
    # ------------------------
}
close(IN);

行をsplitした結果

$d[0] => 02547
$d[1] => 佐藤大輔
$d[2] => 25
$d[3] => 北海道
$d[4] => 苫小牧市

ネタ元