use 5.014;

package A
{
	sub stuff   { output($_) for qw(1 2 3 4) }
	sub output  { say "A: @_" }
}

package B
{
	sub stuff   { output($_) for qw(2 4 6 8) }
	sub output  { say "B: @_" }
}

package main
{
	A::stuff();
	B::stuff();
}

##</code><code>##

use 5.014;

package C
{
	sub foo  { say "foo!" }
}

package main
{
	my $object = bless []=> 'C';
	$object->foo;
}