#!/usr/bin/env perl

use 5.010;
use strict;
use warnings;

use Text::CSV_XS;

my $csv_file = q{pm_csv_first_cell.csv};

open my $csv_fh, q{<}, $csv_file or die $!;

my $csv_obj = Text::CSV_XS::->new();

my $called_first_row = $csv_obj->getline_all($csv_fh, 3, 1);

say qq{@{$called_first_row->[0]}};

seek $csv_fh, 0, 0;

my $real_first_row = $csv_obj->getline_all($csv_fh, 0, 1);

say qq{@{$real_first_row->[0]}};

say q{First cell value: }, $real_first_row->[0][0];

close $csv_file;