#!/usr/bin/perl
use strict;
use warnings;
 
my $file = $ARGV[0] or die "Need to get CSV file on the command line\n";
 
my $sum = 0;
open(my $data, '<', $file) or die "Could not open '$file' $!\n";
 
while (my $line = <$data>) {
  chomp $line;
 
  my @fields = split "," , $line;
  my $sum = $fields[3];
 	

   if ($sum > 310) {
	my $sum2= "volemd";
	chomp($sum2);
	$line =~ s/(.*)\,(.*)\,(.*)\,(.*)\,(.*)\,(.*)/$1\,$sum2\,$3\,$4,$5,$6/g;
	}  elsif ($sum == 70){
	 my $sum3= "volemd1";
	chomp($sum3);
	$line =~ s/(.*)\,(.*)\,(.*)\,(.*)\,(.*)\,(.*)/$1\,$sum3\,$3\,$4,$5,$6/g; 
}
;

 print "$line\n";
}
</p>