#!/bin/perl -w
use strict;

#variables you can change to suit your needs
my $column_separator = ",";
my $column_number = "8";
$column_number--;
my $file="Working_On.csv";
open(FILE,"<","$file");
my @lines=<FILE>;
close FILE;

foreach my $line (@lines){
 my @columns = split(/$column_separator/,"$line");
 print $columns[$column_number],"\n";
}
[download]

While barely readable your code suggests that you are processing a CSV file, not an Excel file. This is quite a different question.

Can you please specify in which way the column is truncated? Are you not getting all rows or are entries somehow garbled? Again, quite different approaches would be required.

Yes I am working on csv file , the truncation is such that the entries are taken in the correct sequence but they are taken from somewhere in between not from the starting