Sure, you could simply loop  FunkyWonky( $_) for @array; where FunkyWonky sets up the onmouseover/onmouseout enter/leaver color changers

See also commentary by zentara in GUIs in Tk.:Zinc; a perl module experiment

After that see "testGraphics.pl" in zinc-demos (its "7. A set of demos based on Graphics.pm module (really better with openGL)." ... hippodrome tab)

  $zinc->bind('pushbtn', '<1>', sub {&pushButton
  $zinc->bind('pushbtn', '<ButtonRelease>', sub {&pullButton();});
[download]

So tag each button with "pooshboton", then bind on pushboton + enter / leave ... see testGraphics.pl sub pushButton for details