sub foo::print {
  my $obj = overload::Strval($_[0]);
  print "$obj: @_[1 .. $#_]";
}
my $o = bless [] => 'foo';
$o->print('some output');

__output__

foo=ARRAY(0x1012116c): some output