#!/usr/bin/perl

for my $i (1..3){
	for my $j (1..3){
		my $x = 120*($j-1);
		my $y = 120*($i-1);
		my $id = $i . '_' . $j;
		my $src = "ian_$id.jpg";
		if ($i==1 and $j==1){
		  $src = "grey120.px";
		}
		print qq[
    <img id="$id" src="$src" style=" top: ${y}px; left: ${x}px " 
     onMouseOver="over($i,$j)" onMouseOut="out($i,$j)" onClick="click($i,$j)" />
];
	}
}

