#!/usr/bin/perl
use Tie::File;
my $filename = 'foo.dat';

tie @array, 'Tie::File', $filename or die "Cannot open $filename\n";

$array[2] = '#'.$array[2];
$array[3] = '#'.$array[3];