One of my favorites is returning a list.

my ($r,$g,$b) = getColor($widget);
[download]

Easy! No messing around with a bunch of pointers.