#####configuring the pixel grid ####
for( my $k = 1; $k <= scalar(@pixel_id); $k++)
{
my $l = $k;
$canvas->bind($k, "<M1-Enter>", 
         sub { $canvas->itemconfigure($l, -fill => "blue"); });
}