#!/usr/bin/perl

open(IN, "<253562recs.csv");
open(OUT, ">output.txt");
while(<IN>) {
chop;
@nums = split(/,/);
$nums[1] += 5;
print OUT join(",", @nums)."\n";
}
close(OUT);
close(IN);
