Perl: CSV からデータを取り出す

# Wide character in print at ... みたいなワーニングが出たときの対処
# utf-8 とか Unicode でマルチバイト文字を表示しようとすると発生する
binmode STDOUT,":utf8";
# CSV を読み込む
use Text::CSV_XS;

my $csv = Text::CSV_XS->new({binary=>1});
open my $fh, "<:utf8", "livehouselist.csv" or die "livehouselist: $!"; #">
while (my $row = $csv->getline($fh)) {
    my @fields = @$row;
    # なにか処理をする
    my ($data1, $data2, $data3) = @$row;
    print $data1."\t".$data2."\t".$data3."\n";
    
#     print @$row[0]."\t".@$row[1]."\t".@$row[2]."\n";
#     print Dumper $row;
}