use 5.010;
use strict qw(vars subs);
use warnings;

*{"Foo[]::hello"} = sub { say "Hello" };

my $obj = bless({}, "Foo[]");

$obj->hello;