#!/usr/bin/env perl

use strict;
use warnings;

use Tie::File;

my ($file, $index, $replacement) = @ARGV;

tie my @records, 'Tie::File', $file or die $!;

for (@records) {
    my @fields = split /,/;
    $fields[$index] = $replacement;
    $_ = join ',' => @fields;
} 

untie @records;