my $in_file = 'C:\Documents and Settings\x0199665\My Documents\coll\tgb.csv';     #
open my $fh, '<', $in_file or die "could not open $in_file: $!\n"; 
 my @column = map { $_->[4] } @{$csv->getline_all ($fh)};