use Text::CSV;

my $csv_tie = Text::CSV->new({binary=>1}) or die "CSV doesn't work: ".Text::CSV->error_diag();
my $csv_file = "some_file.csv";

if(open my $H_csv_file, "<", $csv_file){
	while(my $row = $csv_tie->getline($H_csv_file)){
		printf "(%s)\n", join(';', @$row[0..-1]); #I tried also @{$row}[0..-1]
	}

	close($H_csv_file);
}else{
	print STDERR "Can't open CSV csv: $csv_file\n";
}