while (my $row = $csv->getline ($fh)) {
    # Fix inability of CSV_XS to handle UTF8 strings.
    utf8::decode ($_) for @$row;

    print $row->[4];
    }