my $csv = Text::CSV->new();
my @data = @{$csv->getline_all($in_ph)};

##</code><code>##

my $csv = Text::CSV->new();

while (my $aref = $csv->getline($in_ph)) {
    ...
}