open FH, "< $csv_file" or die "$!";
foreach my $offer (<FH>) {
	print "$offer\n";
	my @fields = split(',',$offer);
}
close(FH) or die "$!";