$\ = $/;

sub add{
	my ($i, $j, $add) = @_;
	$_{value}[$i][$j] += $add;
	}

while(<DATA>){
	
	$tc ++;
	print "[$tc]";
	
	($n, $m) = split;
	for $i (1 .. $n){
		$_ = <DATA>, chomp;
		for $j (1 .. $m){
			$_{value}[$i][$j] = substr $_, $j - 1, 1;
		}
	}

	&add(2, 3, 5);

	for $i (1 .. $n){
		print join " ", @{ $_{value}[$i] };
	}
}
__DATA__
3 3
011
111
111
6 7
1101011
0111111
1111101
1111111
1111110
0111111