CSV

http://codezine.jp/a/article/aid/2364.aspx

sudo cpan -i Class::CSV

	use Class::CSV;

	my $csv = Class::CSV->parse(
		filename => 'test.csv',
		fields   => [qw/姓 名 生年月日 郵便番号 住所 電話番号/]
	);

	foreach my $line (@{$csv->lines()}) {
	print '姓       :'. $line->{'姓'}       . "\n"
	    . '名       :'. $line->{'名'}       . "\n"
	    . '生年月日 :'. $line->{'生年月日'} . "\n"
	    . '郵便番号 :'. $line->{'郵便番号'} . "\n"
	    . '住    所 :'. $line->{'住所'}     . "\n"
	    . '電話番号 :'. $line->{'電話番号'} . "\n"
	}

ただし要素が日本語だとエラーーになる
つかえねー