my $csv_obj = XML::CSV->new(
	error_out => 1
	); 

$csv_obj->{column_headings} = \@heads;
my $status = $csv_obj->parse_doc($file);