my %data = (); open(IN, 'customer_data_win2.csv'); while(<IN>){ chomp; my ($id, $name, $age, $ken, $shi) = split(/,/, $_); # 人データを作る my $people = [$id, $name, $age]; # 結果配列に保存する push(@{$data{$ken}{$shi}}, $people); }</in>

my $text = do {local $/; <$fh>;}; my $text = do {local $/ = undef; #改行デリミタをリセット <$fh>; };