open(RAW,"raw_data") or die ("could not open the file $!");

while(<RAW>) { 

chomp; 

next if /^(\s)*$/; 

my @this_record = split(/,/,$_);

push(@records,\@this_record);

}

my  @sorted = sort{$a->[0] <=> $b->[0]} @records; 

foreach $record (@sorted) { 

if($record->[3] >= $record->[4]) { 

$final = $record->[3];

} 

else { 

$final = $record->[4]; 

}

print "$record->[0] $record->[1],$record->[3],$record->[4],$final\n"; 

} 

close(RAW);