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

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