sub func { print "first arg: $_[0]\n" }

my $o = bless [];

main->func();
  $o->func();

__output__

first arg: main
first arg: main=ARRAY(0x80fbb0c)