$x = bless \%data, Igaro;
$x->foo(...); # calls Igaro::foo($x, ...)