sub method { print "\@_ is: @_\n" }
*foo = bless [ 'Array' ], 'main';
*foo{ARRAY}->method("It's an object now");