use strict;
use warnings;

use 5.010_000;

my $package_0 = bless {}, '0';
{
    no strict qw(refs);
    *{'0::hello'} = sub { say 'Hello World!'; };
}

say ref $package_0;
$package_0->hello();

__END__
0
Hello World!