while ( my $row = $csv_in->getline($fh_in) ) {
    
    # doing stuff with the columns
    
    print "Olah:","\t", $number++, $row->[2]...
}